dulphi
17 de Febrero del 2010

Estoy cambiando mi data de base de datos foxpro a oracle xe quiero saber donde esta error en este codigo



Private Sub cargalist2flex()
Dim campos As String
If List2.ListCount < 0 Then Exit Sub

campos = getCampos

If campos <> "" Then
Call IniciarConexionDBF

rs.CursorLocation = adUseClient
'en esta linea se cae
rs.Open "Select " & campos & " From " & " [" & List1.Text & "]", _
cnn, adOpenStatic, adLockReadOnly

Call CargarFlex(MSHFlexGrid1)
Call Desconectar


End If
End Sub

El error que me sale es ora falta una expresion pero no se cual

Espero me ayuden mil gracias