VB中 显示要求对象 应该怎么改

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
MsgBox "输入不能为空!!", 48, "提示信息"
Else
'判断输入的用户名在数据库中是否存在
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
sqlconnection = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\jxc.mdb"
Rs.Open "select * from [user1] where name = '" & Trim(Text1.Text) & "' and password= '" & Trim(Text2.Text) & "'", sqlconnection

If Rs.RecordCount > 0 Then
If Text3.Text <> Text4.Text Then '判断数据的密码是否正确
MsgBox "两次输入的密码不一致,请您确认后重新输入", 48, "提示信息"
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
Else
'如果输入正确的密码则修改密码
Set adoRs = adoCon.Execute("UPDATE user1 SET Password= '" + Text4.Text + "' where name='" + Text1.Text + "'") 显示要求对象 ,(不是太懂这句话,是用的别我的代码改的,)
Adodc1.Refresh
MsgBox "密码修改成功,请您记住新密码", , "信息提示"
Unload Me
End If
Else
MsgBox "没有此用户的信息,请您确认后重新输入", 48, "信息提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End If
End If
adoCon.Close
End Sub

sqlconnection这个对象没有被赋值,这个变量应该是一个adodb.connection的对象，但是从代码看，上一行是连接字符串，应该代码是看错了。

用vb制作显示图片循环~看代码,如何设置循环? 标签: vb 循环, vb, 图片 dim a(30) as string dim i as integer dim j as integer private sub form_load() for i = 0 to 30 a(i) = "pic\" & i + 1 & ".jpg" next end sub private sub m3_click() 'm3我代表的是3秒显示图片 timer1.enabled = true timer1.interval = 3000 end sub private sub timer1_timer() picture1.picture = loadpicture(a(j)) if j < 30 then j = j + 1 else timer1.enabled = false end if end sub 如何设置他图片播放完30张然后循环显示?