Actualizar registro

[spiderman78]

Que tal ya hice la prueba como me dijiste Avellaneda y me marca el siguiente error

Mysql OBDC 3.51 driver mysql-4.0.11 you have an error in your SQL syntax. Check the the manual that corresponds to your MySQL server version for the right syntax to use near 'municipio=",'estado=",pais=",antecedentes="Where id=0 at

Este es mi codigo

Código:

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 id='" & Text1(0) & "' ,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 = " & Id
    Call LimpiarPacientes
    Else
        Exit Sub
    End If
End Sub

Saludos