login

 Dim o As Object
Set o = CurrentDb.OpenRecordset("SELECT * FROM TBL_DataPelanggan WHERE Username='" & TxtUsername & "'  AND Password='" & TxtPassword & "'")
 If o.RecordCount > 0 Then
        MsgBox ("Login Sukses")
            DoCmd.OpenForm "FRM_Transaksi", acNormal
            DoCmd.GoToRecord , , acNewRec
 Else
MsgBox "Password/Username Salah"
EndIf