哪位大虾帮忙看看,这是我写的登陆,怎么会出错呢?
Dim i As New ADODB.Connection
Dim j As New ADODB.Recordset

Private Sub Command1_Click()
Dim num As Integer
Dim sql As String
Set i = New ADODB.Connection
Set j = New ADODB.Recordset
i.ConnectionString = "provider=sqloledb.1;data source=(local);user id=sa;pwd=247162545;initial catalog=sdb"
i.Open
sql = "select * from s where sno='" & Trim(Text1.Text) & "'"
j.Open sql, i, adOpenStatic, adLockOptimistic
If j.RecordCount > 0 Then
If j.Fields("sn") = Text2 Then
MsgBox "登陆成功"
Else
If num > 3 Then
MsgBox "超出登陆次数"
Unload Me
End If
MsgBox "密码不对"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
Else
MsgBox "用户名不正确"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
End Sub

红字的都是楼主程序可能出错的地方。
首先
Set i = New ADODB.Connection
Set j = New ADODB.Recordset
这里就有错误，单看这里好像没有错误。
但是
Dim i As New ADODB.Connection
Dim j As New ADODB.Recordset
因为有着两句就会出错。
楼主已经用New关键字声明并创建了i和j两个对象，而楼主又接着。
Set i = New ADODB.Connection
Set j = New ADODB.Recordset
重复创建了这个两个对象，这两个对象已经存在。所以有可能出错。

我可以在通用里面把
Dim i As New ADODB.Connection
Dim j As New ADODB.Recordset
改成
Dim i As ADODB.Connection
Dim j As ADODB.Recordset
然后再设定 set i=new ADODB.Connection
set j=new ADODB.Recordset
这样可以吗?

可以这样应该不会出错误了。