Ok, avellaneda. En este momento la duda es que como se la cantidad de registros que devuelve una consulta?. Hasta aquí llegue:
Código:
Dim da As MySqlDataAdapter
Dim Str As String
Str = "SELECT * FROM usuariosreal WHERE us_name = '" & txtUsuario.Text & "' AND us_clave = PASSWORD('" & txtClave.Text & "') AND us_activacion = 1"
da = New MySqlDataAdapter(Str, Cls.cCon)
Dim ds As New DataSet
da.Fill(ds)