Actualizar registro

[spiderman78]

Que tal no pues me sigue saliendo el mismo error y ya modifique el codigo y si tengo dada de alta la variable id en el proceso

Public id As Long

y el proceso despues de la modificacion me queda de esta manera:

Private Sub Modificar()
Call VisualizarPacientes
Dim s As Integer
s = MsgBox("¿Esta Seguro que desea Guardar los Cambios?", vbYesNo, "Control Pacientes - EDMAC")
If s = vbYes Then
BD.Execute "UPDATE pacientes SET fecha='" & text1(1) & "', nombre='" & text1(2) & "' ,apellidos='" & text1(3) & "',ocupacion='" & text1(4) & "',recomendado='" & text1(5) & "',nacimiento='" & text1(6) & "',edad='" & text1(7) & "',sexo='" & text1(8) & "',proxima='" & text1(9) & "',tel1='" & text1(10) & "', tel2='" & text1(11) & "',tel3='" & text1(12) & "',tel4='" & text1(13) & "',calle='" & text1(14) & "',colonia='" & text1(15) & "'municipio='" & text1(16) & "',estado='" & text1(17) & "',pais='" & text1(18) & "',antecedentes='" & text1(19) & "' Where id = " & Text1(0)
Call LimpiarPacientes
Else
Exit Sub
End If
End Sub

Saludos y Gracias