ADO和ACCESS2000数据库连接问题

[yateli]

用ADO连接ACCESS2000数据库,在WIN98 WIN2000下工作正常,在英文XP没有安装OFFICE2003工作也正常,但在英文XP安装OFFICE2003后工作不正常,不能打开带查询和排序的SQL语句.
代码如下:
Dim db As New ADODB.Connection 'ADODB Connection对象
Dim rs As New ADODB.Recordset 'ADODB Recordset 对象
strConnect = App.Path & "\数据库.mdb;" & ";Jet OLEDB:Database Password= "
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockBatchOptimistic
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strConnect
db.CommandTimeout = 30
db.Open
rs.Open "SELECT * FROM 表名 ORDER BY ID ", db, adOpenDynamic, adLockOptimistic
rs.Close
db.Close

[yateli]

各位高手帮帮忙

[daisy8675]

Option Explicit

Private Rs As New ADODB.Recordset
Private Conn As New ADODB.Connection

Private Sub Form_Load()
Dim strConn As String

' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"

' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn

' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close

' Recordser打开表People
Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic

' 报告出 一共多少笔数据,测试是否存在数据
' MsgBox Rs.RecordCount

' 绑定进DataGrid
Set DataGrid1.DataSource = Rs

End Sub

按这个上面的去写，我不清楚你上面为什么还要有strConnect做什么

[yifanlxj]

应该是这样的原因，在连接时设定使用的游标类型！

[yateli]

我按照daisy8675的代码试验,结果一样.在WIN98 WIN2000下工作正常,在英文XP没有安装OFFICE2003工作也正常,但在英文XP安装OFFICE2003后工作不正常.出现提示:

Run-time error'2147467259(80004005)'
Select collating sequence not supported by the operating system.

[yateli]

自己顶

[Abyss-Xu]

在没有安装office2003时先打包，然后安装office2003，然后再安装包。应该就没有问题了。有几种可能：你的数据库用了中文。还有就是office2003 的dll 文件或ocx文件更新了你的XP源有文件。

[yateli]

结贴