[Resolvido]Erro no tempo de execução '3061'. Parâmetros insuficientes. Eram esperado 1

Bom dia !
Podem me ajudar ?
Eu não consegui entender a lógica de como usar & ' " nos parâmetros de String e integer. Ao executar informa o erro 3061

Public Sub DoSQL()

     
   Dim strsql, Estado As String
   Dim codigo  As Integer
     
codigo = 1
Estado = "Sim"

strsql = "UPDATE Tb_Cadt_Familia SET Tb_Cadt_Familia.Grafico_Familia_Sim_Não = Estado WHERE(((Tb_Cadt_Familia.Cod_Faml)= codigo))"

CurrentDb.Execute strsql
   
   
End Sub

Resolvido , Bom dia Galera !

Graças a Deus, consegui resolver, achei a resposta com um de vcs.

Valor de String fica entre ' " & parametro ' " e sem virgula apos o where
valor de Integer fica entre " & parametro & "

Public Sub DoSQL()


Dim strsql, Estado As String
Dim codigo As Integer

codigo = 1
Estado = "Não"

strsql = "UPDATE Tb_Cadt_Familia SET Tb_Cadt_Familia.Grafico_Familia_Sim_Não = ' " & Estado & " ' WHERE(((Tb_Cadt_Familia.Cod_Faml)= " & codigo & "))"

CurrentDb.Execute strsql

End Sub