Error en columnas de DataGrid (ayuda!!)

Has revisado la errata en el nombre en el método FILL...a lo mejor es esa
tontería.

Salu2

"Julio V" wrote in message
news:2fec01c48ecc$972e4100$
Hola a todos
tengo un nuevo problema para ello les envio un codigo.

1.- no acepta un nombre al DataGrid es decir:
datagrid.datamember= "PRUEBA EQUIPO"
Lanza el siguiente Error: "NO SE PUEDE CREAR UNA LISTA
SECUNDARIA PARA EL CAMPO "PRUEBA EQUIPO"

2.- No modifica nada las columnas del datagrid
Estoy trabajando en Windows Forms
Agradezco por la ayuda que me brinden.


' crear adaptador
Dim q As String
q = "select id_equipo, marca, modelo from equipo"
oda = New OleDbDataAdapter(q, ocnn)
'crear un command builder
Dim oCB As OleDbCommandBuilder = New
OleDbCommandBuilder(oda)

'crear DataSet
dsEquipo = New DataSet()
oda.Fill(dsEquipo, "Pueba Equipo")

'asignar el DataSet al data grid
Me.DataGrid1.DataSource = dsEquipo
Me.DataGrid1.DataMember = "Prueba Equipo" 'linea
con ERROR!!


'configurando grid
Me.DataGrid1.Anchor = AnchorStyles.Bottom +
AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
Me.DataGrid1.CaptionText = "prueba de listado de
equipos"
Me.DataGrid1.CaptionBackColor = Color.Turquoise
Me.DataGrid1.CaptionForeColor = Color.Yellow

'crear un objeto para estilos del data grid

Dim oestilogrid As New DataGridTableStyle()
oestilogrid.MappingName = "Prueba Equiipo"
oestilogrid.BackColor = Color.LightGoldenrodYellow
oestilogrid.AlternatingBackColor = Color.Aquamarine

!!APARTIR DE AQUI NO MODIFICA NADA!!!!!!!!!

'crear objeto columna-grid para cada columna de la
tabla a mostrar
' en el datagrid
Dim ocolgrid As DataGridTextBoxColumn

'configurar cada objeto de columna-grid
ocolgrid = New DataGridTextBoxColumn()
ocolgrid.TextBox.Enabled = False

ocolgrid.Alignment = HorizontalAlignment.Center
'nombre de la columna del data set que se mapea
hacia esta columna del grid
ocolgrid.MappingName = "ID_EQUIPO"
ocolgrid.HeaderText = "codigo prueba"
ocolgrid.Width = 150
'Añadir la columna al objeto que contiene los
estilos del datagrid,
'en concreto, a la coleccion de etilos de columna
oestilogrid.GridColumnStyles.Add(ocolgrid)
ocolgrid = Nothing

ocolgrid = New DataGridTextBoxColumn()
ocolgrid.TextBox.Enabled = False
ocolgrid.Alignment = HorizontalAlignment.Left
ocolgrid.HeaderText = "MARCA del EQUIPO"
ocolgrid.MappingName = "MARCA"
ocolgrid.Width = 110
oestilogrid.GridColumnStyles.Add(ocolgrid)
ocolgrid = Nothing

ocolgrid = New DataGridTextBoxColumn()
ocolgrid.TextBox.Enabled = False
ocolgrid.Alignment = HorizontalAlignment.Right
ocolgrid.HeaderText = "MODELO EQUIPo"
ocolgrid.MappingName = "MODELO"
ocolgrid.Width = 85
oestilogrid.GridColumnStyles.Add(ocolgrid)
ocolgrid = Nothing
' añadiendo a la collecion de styles de data grid

Me.DataGrid1.TableStyles.Add(oestilogrid)