Option Compare Database

Public db As Database 'variavel padrao para o DataBase
Public rs As Recordset 'variavel para a tabela
Public sql As String

Function conecta_banco()
Set db = CurrentDb
End Function

Function leitura_banco()
Set rs = db.OpenRecordset(sql, dbOpenDynaset) 'rs pertence ao banco, abrir a tabela trabalhando com sql para leitura ou escrita
End Function

Function limpar_campos()
With Form_cadastro
    .txt_bairro = Empty
    .txt_cel = Empty
    .txt_cep = Empty
    .txt_cidade = Empty
    .txt_comp = Empty
    .txt_cpf = Empty
    .txt_email = Empty
    .txt_endereco = Empty
    .txt_nome = Empty
    .txt_tel = Empty
    .txt_uf = Empty
    .txt_cpf.SetFocus
End With
End Function


Option Compare Database

Private Sub btn_gravar_Click()
sql = "insert into tb_cadastro values ('" & txt_cpf & "','" & txt_nome & "','" & txt_cep & "', '" & txt_endereco & "', '" & txt_comp & "', '" & txt_bairro & "', '" & txt_cidade & "', '" & txt_uf & "', '" & txt_tel & "', '" & txt_cel & "' , '" & txt_email & "')"
'criação do que é sql
    db.Execute (UCase(sql)) 'inserir sql na tabela
    MsgBox ("Registro gravado com sucesso!"), vbInformation + vbOKOnly, "AVISO"
    limpar_campos
End Sub

Private Sub Form_Load()
conecta_banco
End Sub

Private Sub txt_cep_LostFocus()
sql = "select * from tb_cep where cep='" & txt_cep & "'"
leitura_banco
If rs.EOF = False Then
    txt_endereco = rs.Fields("endereco") & ""
    txt_cidade = rs.Fields("cidade") & ""
    txt_bairro = rs.Fields("bairro") & ""
    txt_uf = rs.Fields("uf") & ""
    txt_comp.SetFocus
Else
    txt_endereco.SetFocus
End If
End Sub

Private Sub txt_cpf_GotFocus()
limpar_campos
End Sub

Private Sub txt_cpf_LostFocus()
sql = "select * from tb_cadastro where cpf='" & txt_cpf & "'" ' selecione todos (*) da tabela cadastro onde cpf = cpf
leitura_banco
If rs.EOF = False Then
    txt_nome = rs.Fields("nome") & ""
    txt_cep = rs.Fields("cep") & ""
    txt_endereco = rs.Fields("endereco") & ""
    txt_comp = rs.Fields("complemento") & ""
    txt_cidade = rs.Fields("cidade") & ""
    txt_bairro = rs.Fields("bairro") & ""
    txt_uf = rs.Fields("uf") & ""
    txt_tel = rs.Fields("fone_residencial") & ""
    txt_cel = rs.Fields("fone_celular") & ""
    txt_email = rs.Fields("email") & ""
Else
    txt_nome.SetFocus
End If
End Sub