Tengo el siguiente codigo:
------------------------------------------------------------------------
Public Class connec
    Public con As OleDb.OleDbConnection
    Public da As OleDb.OleDbDataAdapter
    Public numero As Integer
    Public nombre As String
    Public Function ingresar(ByVal con As OleDb.OleDbConnection)
        con.Open()
        Dim access As String = "insert into CURSO values ('" & numero & "','" & nombre & "')"
        con.Close()
        Return (0)
    End Function
End Class
----------------------------------------------------------------------------------
Public Class Form1
    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\bd1.mdb")
    Dim objconnec As New connec
    Private Sub btningresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
        objconnec.numero = txtnum.Text
        objconnec.nombre = txtnom.Text
        objconnec.ingresar(cn)
    End Sub
End Class
---------------------------------------------------------------------------------
bueno cuando ingreso no me marca niun error , pero cuand oreviso la base de datos no ingresa nada alguen me puede ayudar...