求救：VB循环ACCESS字段，并赋值，，，
rsr.Open "select * from sky_user", Conn2, 1, 3
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.MoveNext
Loop
rsr.Update
rsr.Close
这样不行哦，，
怎么解决呢？
VB code:
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.Update
rsr.MoveNext
Loop
rsr.Close
rsr.Open "select * from sky_user", Conn2, 1, 3 ‘这行出错了，提示“实时错误'3709';连接无法用于执行此操作，在此上下文中它可能已被关闭或无效。”
急救，谢谢~！
Set Connr = New Connection
mystr = App.Path
If Right(mystr, 1) <> "\" Then mystr = mystr & "\" 'Provider=Microsoft.Jet.OlEDB.4.0;
Connr.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=admin.mdb;Persist Security Info=False;Jet OLEDB:Database Password=gp8586"
Connr.Open
Set rsr = New Recordset
If rsr.State <> adStateClosed Then rsr.Close
rsr.Open "select * from sky_user", Conn2, 1, 3
Do While Not rsr.EOF
rsr("CK") = "？"
rsr.Update
rsr.MoveNext
Loop
rsr.Close
这是我的代码，请指点一下，谢谢
1、路径写法有问题
2、前后连�
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
问题１
我用ADO连接设了用户名密码的数据库
但是我发现我不输入 用户名和密码 都可以连接成功 而且还能把数据读出来
剪了一个名为test数据库 建了一个名为people的表
见了一个 用户名1234 密码1234 的 ......
