Sub Login_button()
      Dim username As String
    Dim password As String
    Dim tmpusername As String
    Dim tmppassword As String
    Dim login As Boolean
    Dim typeuser As Integer
    Dim kduser As String
    username = mdlMethod.getvalue("LOGIN", 35, 1)
    password = mdlMethod.getvalue("LOGIN", 36, 1)
    Dim lastrow As Integer
    lastrow = mdlMethod.getlastrow("t_user")
    Dim i As Integer
    For i = 2 To lastrow
        tmppassword = mdlMethod.getvalue("t_user", i, 3)
        tmpusername = mdlMethod.getvalue("t_user", i, 2)
        If ((tmpusername = username) And (tmppassword = password)) Then
            login = True
            typeuser = mdlMethod.getvalue("t_user", i, 4)
            kduser = mdlMethod.getvalue("t_user", i, 1)
            i = lastrow + 1
            Else
            login = False
        End If
    Next i
   If (login) Then
        Call mdlMethod.setvalue("sc", 4, 2, tmpusername)
        Call mdlMethod.setvalue("sc", 5, 2, tmppassword)
        Call mdlMethod.setvalue("sc", 6, 2, kduser)
        Call mdlMethod.setvalue("sc", 7, 2, CStr(typeuser))
        If (typeuser = 1) Then
            Sheets("Dash_pncari").Select
            Else
            If (typeuser = 2) Then
                Sheets("Dash_company").Select
                Else
                If (typeuser = 3) Then
                    Sheets("Dash_agency").Select
                    Else
                    If (typeuser = 1) Then

                    End If
                End If
            End If
        End If
   Else
        MsgBox ("Username/Password yang anda masukan salah")
   End If
End Sub