Oops... a little bug in the ointment... there should be quotes around the column name in the first line of the If:
If drReader.IsDBNull("UserName") Then
txtUserName.Text = ""
Else
txtUserName.Text = CStr(drReader("UserName"))
End If
Carl.
Carl Olson, Jr.
CEO, Founder
Cerelogic, Inc.
www.cerelogic.com"Applying rocket science to business."