Conexión de access 2007 con Visual 2008 Express edition

'Importamos librerías
Imports System.Data.OleDb
Public Class Form1


Private Sub cmdconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconectar.Click
On Error GoTo errconexion

Dim cadenadeconexion As New OleDbConnection
'OleDbcommand: Representa una instrucción SQL o un procedimiento almacenado que se va a ejecutar en un origen de datos.
Dim comandosql As New OleDbCommand
Dim lecturafilas As OleDbDataReader
cadenadeconexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; data source = _ C:\Documents and Settings\pl_14\Mis documentos\user.accdb" _
' oconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source =C:\Documents _ and Settings\pl_14\Mis documentos\user.mdb"
cadenadeconexion.Open()
MsgBox("Conectado")
comandosql.CommandText = "Select * from usuario where login =" & "'" & txtuser.Text & "'" & _ "and password =" & "'" & txtpassword.Text & "'"
comandosql.Connection = cadenadeconexion
lecturafilas = comandosql.ExecuteReader()
If (lecturafilas.HasRows) Then
MsgBox("Bienvenido al sistema", MsgBoxStyle.Exclamation, "Sistema de recuperación de alumnos")
Form2.Show()
Me.Hide()
Else
MsgBox("Error de contraseña")

End If
Exit Sub
errconexion:
MsgBox("Error:" + Err.Description)
End Sub