Bom... abre... fecha... abre... fecha... isso pode deixar o sistema extremamente lento em sistemas multiusuários, principalmente se a rede do cara for lenta (o que geralmente é o caso) ou se o cara usa alguma conexão RDO. Daí sim a coisa fica um caos. Eu sempre usei uma única abertura de bd e nunca tive problema. Quanto a corrupção dos dados, isso não depende somente do banco estar ou não aberto, tem uma série de fatores que contribuem em muito para isso.

Oi!

segue o código de conexão via Ado e como realizar consulta em uma tabela.

 

Public cnBanco As New ADODB.Connection
Public rstabela As New ADODB.Recordset

 

//Abrindo o banco
Private Sub Form_Load()
cnBanco.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:Banco.mdb" & ";" & "Persist Security Info=False"

cnBanco.Open
End Sub

 

//Fechando o banco
Private Sub Form_Unload(Cancel As Integer)
cnBanco.close
End Sub

 

//Gravando dados em uma tabela
Public Sub gravar()
Dim cod, nome, idade as string

 

rstabela.CursorType = adOpenKeyset
rstabela.LockType = adLockOptimistic
rstabela.Open "Select * from tabela where campo1  = '" & cod & _
"', cnBanco, , , adCmdText

 

if rstabela.Eof then
  rstabela.AddNew
  rstabela!campo1 = cod
  rstabela!campo2 = nome
  rstabela!campo3 = "" & idade
  rstabela.Update
End if
rsTabela.Close
End Sub

 

//Consultando dados em uma tabela
Public Sub consultar()
Dim cod, nome, idade as string

 

rstabela.CursorType = adOpenKeyset
rstabela.LockType = adLockOptimistic
rstabela.Open "Select * from tabela where campo1  = '" & cod & _
"', cnBanco, , , adCmdText

 

if Not rstabela.EOF then
  cod =  rstabela!campo1
  nome = rstabela!campo2
  idade = "" & rstabela!campo3
End if
rsTabela.Close
End Sub

Eu tbm uso até hoje abrir e fechar o banco em cada chamada de dados, mas estou num projeto de Banco Firebird, no qual vou abrir no formulario principal o banco de dados e depois , conforme o procedimento abro e fecho só as tabelas. No access até hoje abrindo e fechando nunca obtive problemas, e no meu sistema trablaho com tabelas vinculadas de varios bancos