我没看懂，你的连接字符串呢？Private Sub cmdOK_Click() If Trim(Text1.Text)Trim(Text2.Text) Then MsgBox "密码不一致！", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Text1.Text = "" Text2.Text = "" Exit Sub Else Dim conn As ADODB.ConnectionDim comm As ADODB.CommandSet conn = New ADODB.Connectionconn.ConnectionString ...
