Private Sub Form_Load()
Dat_Conexao.DatabaseName = DBname
Dat_Conexao.RecordSource = "SELECT * FROM contas WHERE empresa=""" & G_Emp_Codig & """ order by nome "
Dat_Conexao.Refresh
DBG_Grade.ReBind
IntCodig = 0
End Sub
Dat_conexao (é o nome do controle que faz conexão com o banco de dados)
DBn