at first,Your module1 code is also wrong . check the connection first .then try the following way .

Global conn As ADODB.Connection
Global rs As ADODB.Recordset
Public Sub connect()
Dim ctr As...