Foros del web, para los que viven de bits

Hola

Hace tiempo que no programo en VB, ahora he retomado el tema, tengo el siguiente codigo pero al ejecutarlo me da un error en la clausula from

Private Sub Command1_Click()
Dim miconexion As ADODB.Connection
Dim mirecordset As ADODB.Recordset
Set mirecordset = New ADODB.Recordset
Set miconexion = New ADODB.Connection
miconexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\josetxo\Escritorio\pruebas VB y BD\datos convertidos.mdb;Persist Security Info=False"
miconexion.Open
mirecordset.Open "select jugadores_dorsal,juadores_nombre,jugadores_goles from jugadores" & "where jugadores_equipo='xampale'", miconexion, adOpenDynamic, adLockOptimistic
grid.ColWidth(0) = "" & mirecordset!jugadores_dorsal
grid.ColWidth(1) = "" & mirecordset!jugadores_nombre
grid.ColWidth(2) = "" & mirecordset!jugadores_goles
End Sub

¿Alguein podria ayudarme?

gracias de antemano.

hola...

la concatenación que tienes des pues de la tabla no la lleva

mirecordset.Open "select jugadores_dorsal,juadores_nombre,jugadores_goles from jugadores where jugadores_equipo='xampale'", miconexion, adOpenDynamic, adLockOptimistic
grid.ColWidth(0) = "" & mirecordset!jugadores_dorsal
grid.ColWidth(1) = "" & mirecordset!jugadores_nombre
grid.ColWidth(2) = "" & mirecordset!jugadores_goles
End Sub