conexao com via vba com banco de dados access

Boa tarde, estou com problema para fazer conectar o formulario ao banco de dados. quando vou inserir um registro ele da um erro " variavel do objeto
ou avariavel do bloco with não foi definida. Desde ja agraço.


Option Compare Database
Public db As Database
Public cmd As String
Public rs As Recordset

Function Connection()

Set db = CurrentDb



End Function

Function valida_rs()

Set rs = db.OpenRecordset(cmd, dbOpenDynaset)

End Function


codigo do botão salvar segue a baixo:

Private Sub CmdSalvar_Click()
cmd = "INSERT INTO TB01_EMPRESA (NOME,ENDERECO,NUMERO,BAIRRO,CIDADE,CEP,CNPJ" _
& ")VALUE('" & Me.TxtNome & "','" & Me.TxtEndereco & "','" & Me.TxtNumero & "','" & Me.TxtBairro & "','" & Me.TxtCidade & "','" & Me.TxtCep & "','" & Me.TxtCnpj & "') "

db.Execute (cmd)
MsgBox ("Dados cadastrado com sucesso!"), vbInformation + vbOKOnly, "Sucesso"

Call CmdSair_Click
End Sub

Bom dia, amigos gostei da sua resposta fiz alteração mas continua o erro em tempo de execução 91
a variavel do objeto ou a variavel do bloco with não foi definida, estou usando o access 2013 sera que tem alguma coisa haver?