Visual Basic - Conectar Visual Basic a Access

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            'verdad

            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Base de Datos\Base de BB.accdb"

            conexion.Open()

            MsgBox("Conectado a la Base de Datos", vbInformation, "Correcto")

        Catch ex As Exception

            'falso

            MsgBox("Error al conectar a Base de Datos", vbCritical, "Sin Conexión")

        End Try

End Sub

Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click

        Try

            cdm = New OleDbCommand("INSERT INTO CONSULTA DE BB (Numerlote,Cavidad1,Cavidad2,Cavidad3,Cavidad4)" & Chr(13) &

                                 "VALUES (txtNumerlote,txtbbCavidad1,txtbbCavidad2,txtbbCavidad3,txtbbCavidad4)", conexion)

            cmd.Parameters.AddWithValue("@Numerlote", txtNumerlote.Text)

            cmd.Parameters.AddWithValue("@Cavidad1", txtbbCavidad1.Text)

            cmd.Parameters.AddWithValue("@Cavidad2", txtbbCavidad2.Text)

            cmd.Parameters.AddWithValue("@Cavidad3", txtbbCavidad3.Text)

            cmd.Parameters.AddWithValue("@Cavidad4", txtbbCavidad4.Text)

            cmd.ExecuteNonQuery()

            MsgBox("Guardado", vbInformation, "Correto")

        Catch ex As Exception

            MsgBox("Error al guardar", vbCritical, "Atención")

        End Try

End Sub

Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click

	Try

		cdm = New OleDbCommand("INSERT INTO Consulta (@Numerlote,@Cavidad1,@Cavidad2,@Cavidad3,@Cavidad4)" & "VALUES (?,?,?,?,?)", conexion)

		cmd.Parameters.AddWithValue("@Numerlote", txtNumerlote.Text)

		cmd.Parameters.AddWithValue("@Cavidad1", txtbbCavidad1.Text)

		cmd.Parameters.AddWithValue("@Cavidad2", txtbbCavidad2.Text)

		cmd.Parameters.AddWithValue("@Cavidad3", txtbbCavidad3.Text)

		cmd.Parameters.AddWithValue("@Cavidad4", txtbbCavidad4.Text)

		MsgBox("Guardado", vbInformation, "Correto")

	Catch ex As Exception

		MsgBox("Error al guardar", vbCritical, "Atención")

	End Try

End Sub

Private Sub Grabar()

        Dim Conn As New OleDbConnection('Aqui con cadena de conexon')

        Dim DBComando As New OleDbCommand

        Try

            Conn.Open()

            With DBComando

                .CommandText = "INSERT INTO CONSULTA (NumeroLote,Cavidad1,Cavidad2,Cavidad3,Cavidad4) VALUES (@NumeroLote,@Cavidad1,@Cavidad2,@Cavidad3,@Cavidad4)"

                .CommandType = CommandType.Text

                .Connection = Conn

                .Parameters.Add("@NumeroLote", OleDbType.Integer).Value =Convert.ToInt32(TxtNumeroLote.Text)

                .Parameters.Add("@Cavidad1", OleDbType.VarChar).Value = txtbbCavidad1.Text

                .Parameters.Add("@Cavidad2", OleDbType.VarChar).Value = txtbbCavidad2.Text

                .Parameters.Add("@Cavidad3", OleDbType.VarChar).Value = txtbbCavidad3.Text

                .Parameters.Add("@Cavidad4", OleDbType.VarChar).Value = txtbbCavidad4.Text

            End With

            Dim Correcto As Integer = DBComando.ExecuteNonQuery

            If Correcto = 0 Then

                MessageBox.Show("Error al agregar estudiante","Advertencia")

            Else

                 MessageBox.Show("Guardado", vbInformation, "Correto")

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message,"Error")

        Finally

            Conn.Close()

            Conn.Dispose()

        End Try

    End Sub