Error con visual Basic (Adapter.Fill)

[EmanuelTorres]

DISCULPEN LA MOLESTIA AMIGOS Y GRACIAS POR SU AUDA DE VERDAD PERO AJA HICE TODAS LAS MODIFICACIONES Q ME DIJERON Y EL CODIGO QUEDO ASI

Imports System.Data
Imports System.Data.OleDb
Public Class Form3
Private Conexion As OleDb.OleDbConnection
Private Tabla As DataTable
Private Adaptador As OleDb.OleDbDataAdapter
Private Constructor As OleDb.OleDbCommandBuilder
Private Reader As OleDb.OleDbDataReader
Private dv As New DataView
Private ds As New DataSet
Dim cmd As New OleDbCommand
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


End Sub

Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
Dim strAccess As String = "SELECT * FROM ALUMNOS WHERE [Apellidos y Nombres] like '" & Txtcedula.Text & "'%"
Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\Desktop\ControlAcademicoFin al\ControlAcademicoFinal\Base de Datos de Alumnos.mdb;")
Conexion.Open()
If DataGridView1.Rows.Count > 0 Then
ds.Clear()
End If
'Aqui debes de llamar la función que se encarga de cargar los datos al DataTable'
DataGridView1.DataSource = ds.Tables("Apellidos y Nombres")
End Sub

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

'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Horario' Puede moverla o quitarla según sea necesario.
Me.HorarioTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.Horario)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Turno' Puede moverla o quitarla según sea necesario.
Me.TurnoTableAdapter.Fill(Me.Base_de_Datos_de_Alum nosDataSet.Turno)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Dias' Puede moverla o quitarla según sea necesario.
Me.DiasTableAdapter.Fill(Me.Base_de_Datos_de_Alumn osDataSet.Dias)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CURSOS' Puede moverla o quitarla según sea necesario.
Me.CURSOSTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CURSOS)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ESTADO' Puede moverla o quitarla según sea necesario.
Me.ESTADOTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.ESTADO)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CIUDAD' Puede moverla o quitarla según sea necesario.
Me.CIUDADTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CIUDAD)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ALUMNOS' Puede moverla o quitarla según sea necesario.
Me.ALUMNOSTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.ALUMNOS)
End Sub

Private Sub CMDcerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDcerrar.Click
Me.Close()
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub
End Class


OK ASI NOI MUESTRA ERROR NI EM COMPLILACION NI EN EJECUCION PERO SI PASA LO SIGUIENTE Q CUANDO ESCRIBO ALGO DENTRO DEL TEXTBOX PARA Q LO MUESTRE EN DATAWIEV HACE COMO SI FUERA A BUSCAR PERO NO ME MUESTRA DATOS ME MUESTRA LOS CAMPOS DE LA TABLA PERO VACIOS