VB 的问题,大家看看

Dim g As String

Private Sub Command1_Click()
Dim db As New adodb.Connection

Dim gw As adodb.Recordset

db.CursorLocation = adUseClient
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=用户信息.mdb;"

a = Text1.Text
b = Text2.Text
g = "select * from 管理操作员登录 where 管理员='" & a & "' and 密码='" & b & "'"
gw.Open g, db, adOpenStatic, adLockOptimistic
db.Execute g
If gw.EOF Then
MsgBox ("用户名或密码错误")
Static Try_times As Integer
Try_times = Try_times + 1
If Try_times = 3 Then
Try_times = 0
MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me

End If
Else
If gw.Fields("级别") = "管理员" Then<

VB的一些简单问题~~大家看看 vb..VB问题，大家进来看看 关于VB的一些小问题~~~大家帮忙看看~~ VB中msgbox的问题【大家进来看看吧】 vb的一段简单代码~~~大家看看~！！ vb编程大家看看 VB编程，大家看看 求大家帮帮忙，看看我用VB.NET写的登录出了什么问题 阁下留步 VB的问题 进来看看 帮我看看下面的vb问题