Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db\db.mdb" & ";persist security info=false"
cnn.CursorLocation = adUseClient
我的数据库在C:\Documents and Settings\Administrator\桌面\课程设计，名字叫db.mdb
大家帮我改改
感谢！

cnn.Open "provider=microsoft.jet.oledb.4.0;data source="C:\Documents and Settings\Administrator\桌面\课程设计\db\db.mdb" & ";persist security info=false"

把数据库拷贝到和运行程序同一目录下，这样不用改写代码．就能找到数据库．