Guardar datos en access desde VB 2010

[walfaro]

Hola amigos me pueden ayudar, pues resulta que tengo una mi aplicacion en VB 2010 y me ha funcionado bien a la hora de guardar registros a SQL server, pero ahora quiero hacer lo mismo solo que guardar los datos en una tabla en access...

antes mi conexion era: "Data Source=SERVIDOR\SQLSERVICIO;Initial Catalog=BD;Integrated Security=SSPI;"

ahora lo cambio por este: "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\prueba\BD.accdb;Persist Security Info=False;"

pero al ejecutar me da el error: palabra o clave no admitida: 'provider'


aqui les dejo mi codigo..

Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class SQLCONECTAR
Public cadena As String
Public conectar As SqlConnection
Public Sub sqlconecta()
Try
cadena = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\prueba\BD.accdb;Persist Security Info=False;"
conectar = New SqlConnection
conectar.ConnectionString = cadena
conectar.Open()
Catch ex As Exception
conectar.Close()
MsgBox(ex.Message)
End Try
End Sub


'Inserta registros Estudiante
Public Sub insertar_Estudiante()
Dim insertar As New SqlClient.SqlCommand()
insertar.CommandType = System.Data.CommandType.Text
insertar.CommandText = "INSERT INTO Estudiantes(Nombre,Apellido) values('" & Estudiantes.TxtNombre.Text & "','" & Estudiantes.TxtApellido.Text & "')"
insertar.Connection = conectar
Try
If ((insertar.ExecuteNonQuery() <> 0)) Then
MessageBox.Show("Datos Ingresados Correctamente")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class

[eledgarr]

Compara en el siguiente sitio tu cadena de conexion a ver si es por ahi

http://www.connectionstrings.com/access-2007


Ademas segun yo

Imports System.Data.SqlClient

es para conectarse a Sql server solamente

[walfaro]

Gracias me sirvio de mucho...

[Vega19]

Bueno yo tambien tengo una aplicacion corriendo en ACCESS y asi hize mi "INSERTAR REGISTRO"

Código ASP:

Try
connBD.Open()
Dim access As String = "insert into equipos values('" & txtcodigo.Text & "','" & txtobs.Text & "')"
        
            Dim cmd As New OleDbCommand(access, connBD)
            cmd.ExecuteNonQuery()
            connBD.Close()
            MsgBox("Se an ingresado los datos")
            Limpiar()
            Mostrar()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 

}


Espero que te sirva..