conectarme con ado a access

[rachy]

Tengo mi programa hecho en vb6 con access pero lo q quiero es migrar ya mi programa a vb.net 2008, ya me he leido varios manuales y se como conectarme a la base de datos sea por el explorador de servidores o puramente con codigo, pero al momento de migrar el aplicativo tengo un problema y es que con vb6 al momento de iniciar la aplicacion osea en el load del formsplash yo hacia la conecion con la base de datos y con esa conecion abierta trabajaba todo el programa pero ahora no se si con vb.net es prudente dejar esa conecion abierta todo el tiempo pues segun he leido es mejor solo hacer la conecion cuando se vaya a necesitar la base de datos, otro problema q tengo es q no se como hacer las consultas iniciales osea por ejemplo en el formsplash despues de digitado el nombre de usuario y contraseña yo hacia una consulta asi
sSQL = "select USERNAME,CONTRASEÑA,NIVEL,nombre,activo from USER where USERNAME = '" & Text1.Text & "'"
Set myRS = myDB.OpenRecordset(sSQL, dbOpenDynaset)
'comprobar si la contraseña es correcta
If myRS.EOF = False Then
If myRS!contraseña = Txt.Text Then
If myRS!ACTIVO = True Then
nclie = myRS!nivel
NOM = myRS!NOMBRE
Use = myRS!UserName
Timer2.Enabled = False
Unload Me
Form1.Show
Else
MsgBox "Usuario no se encuentra Activo, comuniquese con el Administrador del Sistema", vbCritical, "Inicio de sesión"
Txt.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", vbCritical, "Inicio de sesión"
Txt.SetFocus
SendKeys "{Home}+{End}"

End If
Else
MsgBox "El Usuario no existe", vbCritical, "Inicio de sesión"
End If
en donde si el usuario si es y esta activo y la contraseña es la misma entra al programa y al usuario le muestra el form1 q es mi form principal pero con el vb.net y la conecion q yo hago no se como hacer esa clase de preguntas, o mas aun no se como debo conectarme si con el explorador de servidores o hacerlo mejor manualmente con puro codigo.

[jaullo]

Primero que nada, no te recomiendo que mantengas tu conexión abierta todo el tiempo, ademas de que posiblemente si usas algunos elementos como datareader te puede generar errores.

Abrela solo cuando la necesitas. En cuanto a como preguntar, te dejo un ejemplo que hace algo semejante a lo que indicas.

Private Function comprobarUsuario(ByVal usua As String, ByVal contr As String, ByVal rol As String) As Boolean
Try
Dim SQLCn1 As SqlConnection
Dim comando As SqlCommand
SQLCn1 = New SqlConnection
SQLCn1.ConnectionString = strConn
SQLCn1.Open()

Dim sql_comando As String
sql_comando = "SELECT COUNT(*) FROM Usuarios WHERE usuario= '" & usua & " ' AND password = '" & contr & "' and rol='" & rol & "' "

comando = SQLCn1.CreateCommand
comando.CommandText = sql_comando
Dim t As Integer = CInt(comando.ExecuteScalar())

SQLCn1.Close()
'lblResp.Text = CStr(t)
If t = 0 Then
Return False
End If

Return True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Y en un boton


If comprobarUsuario(txtuser.Text, txtpass.Text, txtrol.Text) = False Then
veces = veces + 1
If veces < intentos Then
Label1.Text = "Intentos: " & (intentos - veces) & " intentos."
Exit Sub
Call auditoriafallo()
End If

Else

mostrarform
endif

Saludos,