Private Sub command2_Click()
End
End Sub

Private Sub Form_Load()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "driver={sql server};server=dengjiaxiong;uid=sa;pwd=;dataname=school"

conn.Open

If conn.State = adStateOpen Then
  MsgBox "connection successfull!"

End If
End Sub

Private Sub Label1_Click()
txtuser = ""
txtpwd = ""
End Sub
后来  有人提示 conn不是定义在窗体下，只是load过程中。所以发生错    可以把conn定义在通用那里。如：private conn as ADODB.Connection
  后经改过  依然有错  提示  对象名 admin 无效  可是我的 school数据库中的确有admin表为什么无效？
通过ado来连接sql数据库的，错误提示３００１
每当在有调试的时候（按f8）都总是要由load开始调试 想问有什么方法可以只调试当前如command_click()的代码 占不调试其他代码的方法？