SoloCodigo

Hola

Por favor, necesito ayuda con este código.
Cuando lo ejecuto me aparece Error 424 en tiempo de ejecución: Se requiere un objeto

Gracias


If grdDataGrid.Columns(5).Text = "Modificar registro" And grdDataGrid.Columns(37).Text = "<>" Then
cn.Execute "UPDATE MiTabla Set Texto = '" & datcboTexto & "' Where Texto =
"<>" And Option = Modificar registro"

datPrimaryRS.Refresh
grdDataGrid.Refresh

Else

MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
Cancel = True
End If
End Sub

Este es el código completo que uso para ejecutar ese comando

Gracias

Privare Sub cdmUpdateTexto_Click()

Dim Cancel As Integer

If grdDataGrid.Columns(5).Text = "Modificar registro" And grdDataGrid.Columns(37).Text = "<>" Then
cn.Execute "UPDATE MiTabla Set Texto = '" & datcboTexto & "' Where Texto =
"<>" And Option = Modificar registro"

datPrimaryRS.Refresh
grdDataGrid.Refresh

Else

MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
Cancel = True
End If
End Sub