Ayuda Porfavor con VB 2008

[thegrimp]

hola chikos estoy intentando hacer un formulario con varios campos asociados a
una base de datos en accesss pero no puedo hacer lo con el asistente
de conexion.
he creado en un modulo una clase que se conecte a la bd y he intentado vincular los campos con el binndingsouce y muestra los datos pero no llega a actualizar la bd

Bueno antes os deje el codigo por ahi pero nadie me respondio

Porfavor nesecito ayuda

SALU2

[thegrimp]

LA CONEXION LA HAGO DE LA SIGUIENTE FORMA


Friend conn As OleDb.OleDbConnection ' Crear la conexion
Friend cadenaconn As String ' Cadena de conexion
'
Friend dbset As DataSet ' Contenedor DataSet
Friend dbadapter As OleDb.OleDbDataAdapter ' Vincular el Dataset con la tabla
Friend combu As OleDbCommandBuilder ' Permite actualizaciones automaticas


Friend Sub conectar()

cadenaconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & "\Colegio.mdb"

Try
conn = New OleDb.OleDbConnection(cadenaconn)
My.Forms.MDIParent1.ToolStripStatusLabel.Text = "Conectado"
Catch ex As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf & ex.Message)
End Try

End Sub

Friend Sub dsmini(Optional ByVal dbselect As String = "", Optional ByVal nomtab As String = "")
If dbselect = "" Then
MsgBox("Consulta Incorreta")
End If

If nomtab = "" Then
MsgBox("Falta el Nombre de la Tabla")
End If

dbset = New Data.DataSet
dbadapter = New OleDb.OleDbDataAdapter(dbselect, conn)

Try
dbadapter.Fill(dbset, nomtab)
Catch ex As Exception
MessageBox.Show("Error al Cargar los Datos :" & vbCrLf & ex.Message)
End Try

End Sub
End Module

ESPERO que alguien me puede decir que es lo q tengo q poner para vincular los campos en el Formulario
y hacer una actualizacion de la bd