Source Code Form Login

Dim login As New ADODB.Recordset
Private Sub cmdlogin_Click()
    Set login = New ADODB.Recordset
    login.Open "select * from user where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'", conn
    If login.RecordCount > 0 Then
        frmutama.Show
        Unload Me
        frmutama.mnlogin.Enabled = False
        frmutama.mnubahpassword.Enabled = True
        frmutama.Enabled = True
        frmubahpassword.txtid.Text = login.Fields("iduser")
        frmubahpassword.txtusername.Text = login.Fields("username")
    Else
        MsgBox "user id atau password kosong/salah"
        txtusername.Text = ""
        txtpassword.Text = ""
        txtusername.SetFocus
    End If
End Sub

Private Sub Form_Load()
    txtusername.Text = ""
    txtpassword.Text = ""
End Sub