OK te pongo un código con el cual tu podras conectarte a un SQL Server.
primeramente tienes que importar la libreria de SQL poniendo esta linea en la parte superior de tu codigo:
Imports system.data.sqlClient
despues en el boton de "entrar" ... por asi decirlo, pones este codigo:
Private sub btnEntrar_Click
dim conexion as new SqlConnection("DATA SOURCE = localhost; USER ID = <usuarioSql>; PASSWORD = <passdelusuarioSql>; INITIAL CATALOG = <basededatos>")
Dim comando as New SqlCommand("SELECT * FROM usuario WHERE user = @user AND password = @pass", conexion)
Dim datos as SQLDataReader
Try
conexion.open()
comando.parameters.add(new SqlParammeter("@user", txtusuario.text.trim))
comando.parameters.add(new SqlParammeter("@pass", txtpassword.text.trim))
datos = comando.ExecuteReader()
If datos.read = true Then
<<<<lo que quieres que suceda cuando concuerde el usuario y contraseña>>>>
Else
lblError.text = "No corresponden usuario y/o contraseña"
End If
Catch ex as SQLException
lblError.text = ex.Message
Finally
conexion.close
End Try
End Sub
Eso de lblError ... es un Label donde se publiquen los errores.
Espero te sirve!!!