el tema cmd.executenonquery

orlando
13 de Junio del 2010
Te comento lo hici un programa de insertar un registro en la base de datos de access dentro de visual basic .net
te lo paso la siguiente codificacion

Imports System.Data
Imports System.Data.OleDb

Public Class Clientes

Private Sub Clientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CadConexion As String

CadConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Visual Studio 2008ProjectsPracticaRemiseria1Remiseria1RemiseriaBD.mdb"

Using conn As New OleDbConnection(CadConexion)
conn.Open()
Dim consulta As String
consulta = "insert into Cliente (CodID, ApNombre, DNI, FechaNacimiento, Direccion, Localidad, Telefono, Celular, FechaInicio)values (@CodID, @ApNombre, @DNI, @FechaNacimiento, @Direccion, @Localidad, @Telefono, @Celular, @FechaInicio)"
Dim cmd As New OleDbCommand(consulta, conn)
cmd.Parameters.AddWithValue("@CodID", Me.TextCODID.Text.Trim)
cmd.Parameters.AddWithValue("@ApNombre", Me.TextApNombre.Text.Trim)
cmd.Parameters.AddWithValue("@DNI", Me.TextDNI.Text.Trim)
cmd.Parameters.AddWithValue("@FechaNacimiento", Me.TextFechNacimiento.Text.Trim)
cmd.Parameters.AddWithValue("@Direccion", Me.TextDireccion.Text.Trim)
cmd.Parameters.AddWithValue("@Localidad", Me.TextLocalidad.Text.Trim)
cmd.Parameters.AddWithValue("@Telefono", Me.TextTelefono.Text.Trim)
cmd.Parameters.AddWithValue("@Celular", Me.TextCelular.Text.Trim)
cmd.Parameters.AddWithValue("@FechaInicio", Me.TextFechaInicio.Text.Trim)
cmd.ExecuteNonQuery()
MsgBox("Dato esta creado con exito")
End Using
End Sub


Me sale un error con el cmd.executenonquery() "no se pudo encontrar la tabla de resultados Clientes" como procedemos?