Public Function login() As Boolean
Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT 員工Id, 密碼 FROM 員工表 WHERE 員工Id = " & Me.cboUserName
rst.Open strSQL, CurrentProject.Connection, adOpenStatic
If rst.RecordCount > 0 Then
If rst("密碼") = Me.TxtPwd Then login = True
End If
End Function