If dt.Rows.Count = 1 Then
MessageBox.Show("Access Granted. Welcome " + dt.Rows(0)("firstname").ToString() + " " + dt.Rows(0)("middlename").ToString() + " " + dt.Rows(0)("lastname").ToString() + "!")
Dim ma As frmMain = New frmMain()
Me.Hide()
ma.Firstname = dt.Rows(0)("firstname").ToString()
ma.Middlename = dt.Rows(0)("middlename").ToString()
ma.Lastname = dt.Rows(0)("lastname").ToString()
ma.Username = dt.Rows(0)("username").ToString()
ma.Show()