Visual Basic - Error en store procedure

Estimados:

tengo 2 problemas, el primero es que cada cierto tiempo de maera esporadica me aparece el
sgt error

"Erro Nº:" -2147217900; Error Descrp: [ODBC SQL SERVER DRIVER][SQL SERVER]Linea 1: Sintaxis incorrecta cera de ','.

y lo otro no me esta ejecutando el reloj de arena.

Dim sql As String
Dim xRut As String
Dim i As Integer
Dim xIdMandante As Integer
Dim xNroComprobEjecu As Long
Dim xFolioInterno As Long
Dim xFolio As String
Dim xEstadoDeuda As Long
Dim rec1 As ADODB.Recordset
Dim r As Long
Dim e As String



On Error GoTo Error:
Me.MousePointer = vbHourglass

With grdGrillaSel

For i = 1 To .MaxRows
.Row = i
.Col = 6

If .Value = 1 Then
.Col = 2: xIdMandante = .Text ' Obtiene IdMandante
.Col = 3: xRut = Replace(.Text, ".", "") ' Obtiene Rut
.Col = 17: xFolio = .Text ' Obtiene Folio
xFolioInterno = TraeFolioInterno(xRut, xIdMandante, xFolio) ' Obtiene Folio Interno
.Col = 18: xNroComprobEjecu = .Text ' Obtiene NroComprobEjecu
End If
Next i

End With

r = CLng(xRut)
'parte asumiendo que es pago tipo documento, y si encuentra efectivo le coloca 6
xEstadoDeuda = 5

With grdGrillaPrePagos
For i = 1 To .MaxRows
.Row = i
.Col = 1
If .Text = "Efectivo" Then
xEstadoDeuda = 6
End If
Next i
End With

sql = "stp_finalizapago @Rut = " & r & " , "
sql = sql & " @IdMandante = " & xIdMandante & " , "
sql = sql & " @EstadoDeuda = " & xEstadoDeuda & " , "
sql = sql & " @NroComprobEjecu = " & xNroComprobEjecu

If Not GrlFnSQL(gconConexion, rec1, sql) Then
MsgBox "Ha ocurrido un error en la operación.", vbExclamation: Exit Sub
End If

Screen.MousePointer = 0

Exit Sub
Error:
e = "Error N° : " & err.Number & "; Error Descrip : " & err.Description
Exit Sub

End Sub


gracias

con lo del reloj de arena cambia:

Me.MousePointer = vbHourglass

por este otro:

Screen.MousePointer = vbHourglass

y para regresarlo a normal cambia:

Screen.MousePointer = 0

por este otro:

Screen.MousePointer = vbNormal

con lo de error de sql, no se, si es muy esporadico, hay que revisar parametros de red, o creo que en algun lado hay una opcion de querytimeout, que lo puedes aumentar por si alguna consulta o algo se tarda mas de la cuenta, puede que por alli vaya el tiro, incluso verifica si alguna maquina dentro de la red no tenga virus y pueda estar haciendo ruido y por eso el error, bueno espero te sirva alguna de estas solucones saludos..