Populating Elements
- Option Explicit
- Dim conn As ADODB.Connection
- Dim rs As ADODB.Recordset
- ' pupulate element
- ' @author: Kevern
- ' @date: checkDate 07/28/2009
- Public Sub init()
- Set conn = New ADODB.Connection
- Set rs = New ADODB.Recordset
- conn.connectionString = ConnectionStringModule.connectionString
- With conn