Visual Basic 2010 Agregar Datos Access A Grilla, List, Comobo Y Texto.

'aca llenamos 1 textbox con apellido
1 listbox con nombres
1 combobox con rut
1 grilla con todos los campos de una Base de Datos Access, que tiene la siguiente información:
Base de datosEscuela
Tabla: alumnos
campos de la tabla;
rut (texto) 10 caracteres
Nombre (texto) 50 caracteres
Apellido (texto) 50 caracteres
Telefono (numero)
Mail (texto) 50 caracteres---------------------------------Primera Parte----------------------------------------------------

Imports System.Data.OleDb

Public Class formUnoTest
Private cadenaConexion As StringPrivate estudianteDataSet As DataSet
Private alumnosTableAdapter As OleDbDataAdapter
Private miConexion As OleDbConnection
Private Sub cmdAgregaInfo_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles cmdAgregaInfo.Click
cadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Manuel\Documents\Escuela.accdb"
miConexion = NewOleDbConnection(cadenaConexion)
alumnosTableAdapter = New OleDbDataAdapter

alumnosTableAdapter.SelectCommand = New OleDbCommand("SELECT * FROM alumno", miConexion)estudianteDataSet = New DataSet
estudianteDataSet.Tables.Add("alumno")

alumnosTableAdapter.Fill(estudianteDataSet.Tables("alumno"))

cboRut.DataSource =estudianteDataSet.Tables("alumno")

cboRut.DisplayMember = "rut"
lstNombres.DataSource = estudianteDataSet.Tables("alumno")
lstNombres.DisplayMember = "Nombre"txtApellido.DataBindings.Add("text", estudianteDataSet.Tables("alumno"), "Apellido")

grdAlumnos.DataSource = estudianteDataSet.Tables("alumno")
End Sub
Private Sub cmdGuardar_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles cmdGuardar.Click
'pasamos la tabla al formulario secundario, creando el formulario secundario
'para eso creamos una variable
Dim...