'Crea un nuevo objeto SqlConection con la cadena de conexion apropiada
Dim sqlConn As New SqlConnection(CnRentas)
'Abre la conexion
sqlConn.Open()
Dim USUARIO As String
Dim PASSWORD As String
USUARIO = Trim(Me.txtUsuario.Text)
PASSWORD = Trim(Me.txtContraseña.Text)
Try
Dim queryString As String = "SELECT * FROM USUARIOS WHERE USUARIO = '" & USUARIO & "' AND CONTRASEÑA = '" & PASSWORD & "'"
Dim da As SqlDataAdapter = New SqlDataAdapter(queryString, sqlConn)
Dim ds As DataSet = New DataSet
[color=#008000]da.Fill(ds, "USUARIOS")[/color]
If ds.Tables("USUARIOS").Rows.Count = 0 Then
MsgBox("No existe el Usuario solicitado", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Usuario no encontrado")
Else
Me.Hide()
FrmPrincipal.Show()
End If
Catch
MsgBox("ERROR " & Err.
Description, MsgBoxStyle.
Critical + MsgBoxStyle.
OkOnly,
"eRROR") End Try
'Cierra la conexion
sqlConn.Close()