Option Explicit
Dim sql As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Set conn = New ADODB.Connection
If conn.State = 0 Then
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=同学录软件开发1;Data Source=WIN7-20200710EF\SQL"
conn.Open (sql)
sql = "select from XXb where 班主任 = '" & Text1 & "'"
End If
Set rs = New ADODB.Recordset
If Text1 = " " Then
'sql = "select from XXb where 班主任 = '" & Text1 & "'"
MsgBox ("为防止外人登录，软件设置了双重登录系统")
Form1.Hide '，隐藏自已
Form2.Show '打开第二个窗体
Else
conn.Close '关闭数据连接
MsgBox ("你不是本班学生，将强制退出软件")
End
End If
End Sub
老师们帮我看看
