Problema con vb y sql(Clausaula WHERE)

[shaggikpo]

bueneo mi problena es que intento obtenet una lista determinada de datos de una deb de sql2000 ahi todo vien pero el tema es que que cuando pongo la clausula where para que me devuelva los datos de las celdas que sean concidentes me tita error:
este es el code que funciona bien

Código:

 Option Explicit
  
   Dim cn As ADODB.Connection




  
  
   Private Sub Form_Load()
  
       ' nueva conexión Ado
       Set cn = New ADODB.Connection
  
       With cn
           ' cursor
           .CursorLocation = adUseClient
  
           ' Cadena de conexión para Sql Express mediante OLEDB
           '''''''''''''''''''''''
           .ConnectionString = "Provider=SQLOLEDB.1;" & _
                               "Integrated Security=SSPI;" & _
                               "Persist Security Info=False;" & _
                               "Initial Catalog=MuOnline" & _
                               ";Data Source=127.0.0.1"
  
  
           .Open ' abre
  
  
           Dim rs As ADODB.Recordset
           ' Crear y abrir un Recordse
           Set rs = cn.Execute("SELECT  Name,cLevel,Resets,LevelUpPoint,Class,Experience,Strength,Dexterity,Vitality,Energy FROM Character ")
  
           ' visualiza los datos de la tabla en el datagrid
           Set MSHFlexGrid1.DataSource = rs
  
           rs.Close
           Set rs = Nothing
  
       End With
   End Sub
  
   ' Finaliza la conexión
  '''''''''''''''''''''''''
   Private Sub Form_Unload(Cancel As Integer)
   On Local Error GoTo error_Sub
       If Not cn Is Nothing Then
          If cn.State = adStateOpen Then
             cn.Close
          End If
       End If
   Exit Sub
error_Sub:
   Debug.Print Err.Number
   Debug.Print Err.Description
   End Sub

pero si le agrego la clausura me tira error: "El nombre de columna 'black' no es valido"

Código:

 Option Explicit
  
   Dim cn As ADODB.Connection




  
  
   Private Sub Form_Load()
  
       ' nueva conexión Ado
       Set cn = New ADODB.Connection
  
       With cn
           ' cursor
           .CursorLocation = adUseClient
  
           ' Cadena de conexión para Sql Express mediante OLEDB
           '''''''''''''''''''''''
           .ConnectionString = "Provider=SQLOLEDB.1;" & _
                               "Integrated Security=SSPI;" & _
                               "Persist Security Info=False;" & _
                               "Initial Catalog=MuOnline" & _
                               ";Data Source=127.0.0.1"
  
  
           .Open ' abre
  
  
           Dim rs As ADODB.Recordset
           ' Crear y abrir un Recordse
           Set rs = cn.Execute("SELECT  Name,cLevel,Resets,LevelUpPoint,Class,Experience,Strength,Dexterity,Vitality,Energy FROM Character WHERE Name = Black ")
  
           ' visualiza los datos de la tabla en el datagrid
           Set MSHFlexGrid1.DataSource = rs
  
           rs.Close
           Set rs = Nothing
  
       End With
   End Sub
  
   ' Finaliza la conexión
  '''''''''''''''''''''''''
   Private Sub Form_Unload(Cancel As Integer)
   On Local Error GoTo error_Sub
       If Not cn Is Nothing Then
          If cn.State = adStateOpen Then
             cn.Close
          End If
       End If
   Exit Sub
error_Sub:
   Debug.Print Err.Number
   Debug.Print Err.Description
   End Sub

Espero que puedan ayudarme desde ya muchas gracias

[shaggikpo]

Problema resuelto era que debia usat comillas simples para el valor de la clausula WHERE

Código:

Set rs = cn.Execute("SELECT  Name,cLevel,Resets,LevelUpPoint,Class,Experience,Strength,Dexterity,Vitality,Energy FROM Character WHERE Name = 'Black' ")

Igual dejo el post por si a alguien le sirve el code