Visual Basic.NET - Conexion VB2010 con SQL2005

Buenas Tardes,

Estoy tratando de conectar SQL con VB pero no me funciona la conexion.. Porque!?
ANEXO EL CODIGO.. Ojalá puedan ayudarme... GRACIAS DE ANTEMANO!!

Imports Microsoft.SqlServer
Public Class frmcontra

Private consql As New SqlClient.SqlConnection("Data Source=sist-clinares;Initial Catalog=Inventario2010;User Id=sa;Password=inventario;")

Private Sub btmaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmaceptar.Click
Try
consql.Close()
consql.Open()
Dim cmduser As New SqlClient.SqlCommand("select * from usuarios where usuario='" & txtusuario.Text & "' and contrasenia=' " & txtcontrasenia.Text & "'", consql)
Dim druser As SqlClient.SqlDataReader = cmduser.ExecuteReader
If druser.Read = True Then
If txtusuario.Text = druser.GetValue(0) Then
If txtcontrasenia.Text = druser.GetValue(1) Then
If druser.GetValue(4) = "True" Then
MsgBox("Usuario conectado", MsgBoxStyle.Critical, "Inventario2010")
Return
Else
MsgBox("Bienvenido (a)" & druser.GetValue(2), MsgBoxStyle.Information, "Inventario2010")
Dim cmdconectar As New SqlClient.SqlCommand("update usuarios set conectado='True' where usuario='" & txtusuario.Text & "' and contrasenia='" & txtcontrasenia.Text & "'", consql)
cmdconectar.ExecuteNonQuery()
cmdconectar.Dispose()
Select Case druser.GetValue(3)
Case "Administrador"
MsgBox("Administrador", MsgBoxStyle.Information, "Inventario2010")
Case "Estandar"
MsgBox("Standar", MsgBoxStyle.Information, "Inventario2010")
End Select
End If
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Inventario2010")
consql.Close()
End Try
frmprincipal.Show()
Me.Hide()
End Sub

que error te aparece???

Bueno, no es un error como tal solo que pasa directo a la aplicación!! Osea el lee los primeros codigos llega hasta donde dice:

If druser.Read = True Then

Y DE AHI SALTA PARA EL ULTIMO

End IF..

Y no le para a los otros codigos.. Es como si fueran comentarios..!!

Y este es mi cadena de conexion...

Imports Microsoft.SqlServer

Private consql As New SqlClient.SqlConnection("Data Source=SIST-CLINARES;Initial Catalog=Inventario2010;Persist Security Info=True;User ID=sa;Password=inventario")

Primero lo conecte donde dice Explorador de Servidores y luego le di boton derecho en Conexiones de Datos y luego Agregar Conexion..!!

segun lo que dices esta funcionando bien la conexion porque pasa por la linea conexion.open, si llega a druser.Read = True y de ahi salta al final, es porque el reader no tiene datos, y pues no pareceria error de sintaxis en la consulta sql porque de ser asi te saltaria una excepcion, entonces te aconsejo que verifiques que la consulta si retorne resultados.

saludos

Cuando pasa por esta linea
Dim cmduser As New SqlClient.SqlCommand("select * from usuarios where usuario='" & txtusuario.Text & "' and contrasenia=' " & txtcontrasenia.Text & "'", consql)

y en donde dice txrusuario y txtcontrasenia tiene datos!

Y si quito esta linea

If druser.Read = True Then

y corro el sistema despues de poner el usuario y el pass me arroja un mensaje que dice:
ERROR DE LECTURA PORQUE NO HAY DATOS..

Y despues de darle a aceptar entra al sistema..!!

Cuando pasa por este codigo

If druser.Read = True Then

Reviso en la parte de abajo donde dice "INSPECCION"

Me da esta información:

Que el "druser.HasRows" es "False"

por eso digo compañero que la consulta no te esta devolviendo datos, indpendiente si el txtuser o txtpass tienen datos, lo importante es que la sentencia sql concatenada devuelva datos, una manera muy facil de verificar es llevar la cadena de la consulta a una variable, y depurando tomar esa sentencia sql y hacer la consulta directamente desde el management de sql server por ejemplo.

Nota: El metodo Read lee la fila siguiente permitiendo acceder mediante el reader a las columnas que devuelve la consulta, si no se pone el read, te sale el error de que no hay datos, porque aun no se han leido

Saludos