[Resolvido]ComboBox noList

Boa tarde,

Tenho tentado adaptar este código mas não estou conseguindo....
Tenho uma combobox onde caso o valor introduzido no campo não esteja na lista da combo ele grava na tabela "Tabela_estado" no campo"Estado_abreviado" o valor novo, e eu gostaria de poder atraves de uma imputbox ele me perguntar Qual o nome do estado por extenso.
A Tabela_Estado tem dois campos,
1º Estado_abreviado
2º Estado_Extenso.

Estava a tentar com o seguinte código...

Private Sub Estado_NotInList(NewData As String, Response As Integer)
Dim SQL As String
Dim SQL33 As String
Dim Est1 As String
DoCmd.SetWarnings False
If MsgBox("Estado não cadastrado" & vbCrLf & "Deseja cadastrar o estado " & "agora?", vbInformation + vbYesNo, "Cadastro") = vbYes Then
SQL = "INSERT INTO Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "')"
DoCmd.RunSQL SQL

Est1 = InputBox("Qual é o nome do Estado?", "Estado")
CurrentDb.Execute "UPDATE SET Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "') WHERE Tabela_estado = Me.Estado.Text "
DoCmd.RunSQL SQL33
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
DoCmd.SetWarnings True
End Sub


O que estou a fazer de errado?????

Boa tarde,

Após alguma insistencia consegui....

Private Sub Estado_NotInList(NewData As String, Response As Integer)
   Dim SQL As String
     Dim Est1 As String
   DoCmd.SetWarnings False
   If MsgBox("Estado não cadastrado" & vbCrLf & "Deseja cadastrar o estado " & "agora?", vbInformation + vbYesNo, "Cadastro") = vbYes Then
       SQL = "INSERT INTO Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "')"
       DoCmd.RunSQL SQL
     Est1 = InputBox("Qual é o nome do Estado?", "Estado")
       CurrentDb.Execute "UPDATE Tabela_Estado SET Estado_Extenso = ('" & Est1 & "') WHERE '" & NewData & "' = Estado_Abreviado"
       Response = acDataErrAdded
   Else
   Response = acDataErrDisplay
   End If
   DoCmd.SetWarnings True
End Sub

Parabens Roberto
Já adaptei e ficou funcional
É como diz o Gr JPaulo - Tem muita maneira de fazer nestum
Obrigado pela lição