Failed to Enable Constraints (SQL/VB.NET issue)

[KGComputers]

There's a typo on my suggestion it should be:

Dim user as String user = adapter.GetUserNames(Username).ToString()
Dim pass as String 
'it should be GetPassword
pass = adapteradapter.GetPassword(Password).ToString()