Dim cn As New ADODB.Connection Dim reg As New ADODB.Recordset
Set cn = New ADODB.Connection Set reg = New ADODB.Recordset