Guardar datos en Access

[jaullo]

Trata de hacerlo de la siguiente manera

'para abrir la conexion
Sub abrirConexion()
Try
strConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ".\tubd.mdb"
cnnConex = New OleDb.OleDbConnection(strConexion)
cnnConex.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

'para ejecutar la consulta de guardarr
Sub consultaAccion(ByVal consulta As String) 'para hacer las consultar

Try
comand = New OleDb.OleDbCommand(consulta, cnnConex)
comand.ExecuteNonQuery()

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

'para cerrar la conexion
Sub cerrarConexion()
Try
cnnConex.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

'con esta instruccion haces tu insert
Try
Dim objCon As New conexion 'conexion deberia cambiarse por el nombre de la clase en donde tienes los comandos de acceso a la bd (todos los que te puse anteriormente)
Dim strSQL As String = "INSERT INTO cliente (codcliente,nombre,pais,telefono)" & _
"VALUES (" & a.codigo & ",'" & a.nombre & "','" & a.pais & "','" & a.telefono & "')"
objCon.abrirConexion()
objCon.consultaAccion(strSQL)
objCon.cerrarConexion()
Catch ex As Exception
MsgBox("Error al guardar los datos", MsgBoxStyle.Critical)
End Try

saludos,