Se vc quer jogar as informações do teu banco de dados dentro de uma variavel eh:
Exemplo:
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:InstallNuinfNathaliaSupermercadoSuper.mdb", False, False)
Set tb = db.OpenRecordset("select * from Cliente")
tb.Edit
tb("Nm_Cli") = Nm_Cli.Text
tb("Rg_Cli") = Rg_Cli.Text
tb("Cpf_Cli") = Cpf_cli.Text
tb("Dt_Nasc") = Dt_Nasc.Text
tb("Endereço") = Endereço.Text
tb("Cidade") = Cidade.Text
tb("Tel_cli") = Tel_Cli.Text
tb.Update
tb.Close
s = MsgBox("Cadastro Efetuado com Sucesso!!!", vbInformation + vbOKOnly, "Agenda de Amigos")
Call LiMpa_CamPo
ve se isso ajuda...qualquer coisa posta!!