Caros amigos gostaria que vc's me explicase algumas teorias sobre modulo, procurei na net mas nao achei, ou se alguem conhece um site que fale e mostre exemplos comentados eu agradeceria.
Estou mandando um exemplo que codigo que peguei de um site vc's poderiam me explicar os comandos que estao no codigo?
Option Explicit
Global cn As ADODB.Connection
Global rs As ADODB.Recordset
Conexão:
Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String
Load frmAgenda
frmAgenda.Show
DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strArquivo = "agenda.mdb"
strLocal = App.Path
Set cn = CreateObject("ADODB.Connection")
ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & strArquivo & ";" & _
"DefaultDir=" & strLocal & ";" & _
"Uid=Admin;Pwd=;"
cn.Open ConectaAccess
End Sub
