Private Sub cmdok_Click()
    If Option1.Value = True Then
        查詢界面.Show
        Form2.Hide
    ElseIf Option2.Value = True Then
        Label1.Enabled = True
        Text1.Enabled = True
        Label2.Enabled = True
        Text2.Enabled = True
        Data1.Recordset.FindFirst "用戶名='" & Text1.Text & "'"
            If Data1.Recordset!密碼 = Text2.Text Then
                 Form2.Text1.SetFocus
                 進入界面.Show
                 Form2.Hide
                 Text1.Text = ""
                 Text2.Text = ""
    
Else
    msg = MsgBox("用戶名或密碼錯誤")
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus


If Text1.Text = "" Then
MsgBox "請輸入用戶名"
ElseIf Text2.Text = "" Then



MsgBox "請輸入密碼"
End If
End If
End If

End Sub