con.con_open()
Dim cmdlogin As New SqlCommand(("SELECT * FROM users WHERE user_name='" & _
txtuname.Text & "' and password='" & _
txtpassword.Text & "'"), con.con)
Dim dalogin As New SqlDataAdapter
Dim dslogin As New Data.DataSet
dalogin.SelectCommand = cmdlogin
cmdlogin.ExecuteNonQuery()
dslogin.Clear()
dalogin.Fill(dslogin, "users")
If dslogin.Tables(0).Rows.Count > 0 Then
Else
End If
if txtusername.text=dslogin.Tables(0).Rows(0).Item(0).ToString then
else
end if
con.con_close(