no elimina registros VB 6

[harvestmoon]

Private Sub btnborrar_Click()
strServer = "cyarespaldo"
strUID = "sa"
strPWD = ""
strDatabase = "archivo"
sqlstmt1 = "SELECT * From expedientes Where (clave Like " & MSFlexGrid1.TexT & ")"
sqlstmt2 = "DELETE FROM expedientes WHERE (clave= '27893')" //eso se lo puse para ver si no tenia problemas con el msflex
MsgBox sqlstmt2

'If MsgBox("¿Desea eliminar el registro " & MSFlexGrid1.TexT & "?", vbYesNo + vbDefaultButton2 + vbExclamation) = vbYes Then
'sqlstmt1 = "DELETE From expedientes Where (clave= " & MSFlexGrid1.TexT & ")"

'End If




End Sub



hola que tal teengo ese codigo para seleccionar desde un msflex me muestra perfectamente bn la clave del registro pero no me elimina si yo pongo el delete asi como esta en sql me elimina perfectamente
el select en vb 6 funciona bn no se qpodria ser del delete
al principio crei q serian los permisos pero ya les di el permiso de elim inar


¿hay alguna manera de ver el error q me genere si lo hay en vb 6 asi como un debug o el or die de php?

gracias saludos!!!

[kennyhp]

Has probado poniendo comillas simples???

'sqlstmt1 = "DELETE From expedientes Where (clave= ' & MSFlexGrid1.TexT & ')"

Si tu Base de datos es SQL SERVER puedes usar el Profiler para ver que es lo que está enviando la query y de este modo podrás detectar el error.

[harvestmoon]

hola gracias por tu respuesta le di solucion aunke no de la mejor manera uso un rs como recordset y con ese mismo lo elimino aunke no es muy seguro ya que se podria seleccionar uno q no debe borrarse gracias mientras trabajre con eso :(