Dim cn, rs



'------------------------------------ definir e abrir conexoes e rs
Sub openDB()
	Set cn = CreateObject("ADODB.Connection")
	cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databases\db1.mdb ;Persist Security Info=False"
	Set rs = CreateObject("ADODB.Recordset")
End Sub





'------------------------------------ fechando conexao
Sub closeDB()
	cn.close
End Sub