Option ExplicitDim itmX As ListItem
'声明一个ListItem对象Dim text As String'声明字符串变量Dim rs1 As New ADODB.RecordsetDim rs2 As New ADODB.RecordsetConst MaxTimes As Integer = 3Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As ...
Option ExplicitPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Data1.RecordSource = "select * from 用户表 where user='" & Combo1.Text & " '"Data1...