Yep - add:
If datardr.HasRows Then
datardr.Read()
Immediately after your ExecuteReader:
datardr = cmd.ExecuteReader
If datardr.HasRows Then
datardr.Read()
lastnametb.Text = datardr("LastName")
firstnametb.Text = datardr("FirstName")
middletb.Text = datardr("MiddleInitial")
agetb.Text = datardr("Age")
loctb.Text = datardr("Location")
unametb.Text = datardr("Uname")
pwordtb.Text = datardr("Pword")
End If