一个关于VB读取数据库乱码的问题,急

我用VB做了一个网页生成器,可是在调用数据库读取数据库中的法语数据的时候,有些字符变成了问号,请问高手如何解决啊,急啊,下周就要交给boss了 --------------------编程问答-------------------- 这是我的代码,请高手提供详细点的解决方法


Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim conn
Set conn = CreateObject("adodb.connection")
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);User ID=sa;Password=;Initial Catalog=ssss"

Dim rs
Set rs = CreateObject("adodb.recordset")
rs.Open "select * from cncicom1 where catid = 9 order by id desc", conn, 1, 1
If rs.EOF Then
response.Write ("对不起,暂时没有数据")
Else

i = 0
Do While Not rs.EOF
facN = rs("category")
facN = Replace(facN, " ", "-")

factoryfolder = jtlocal.Text & "\" & facN & "\"
If fso.FolderExists(factoryfolder) Then

Else
    fso.CreateFolder (factoryfolder)
End If

id = rs("id")
offer_id = rs("offer_id")


Inet1.URL = pat易做图.Text & "?" & "id" & "=" & id
FileName = factoryfolder & offer_id & ".html"
showpath.Caption = FileName
htmlcode = Inet1.OpenURL
Open FileName For Output As #1
Print #1, htmlcode
Close #1

i = i + 1
rs.MoveNext
Loop
End If
MsgBox ("静态页面生成完毕,生成" & i & "页面")
End Sub

补充：VB ,  数据库(包含打印，安装，报表)