Welcome to the forums.

Take your variables out of your sub routine, and put them in the declarations selection of the module and make them public
VB Code:
  1. Option Explicit
  2.  
  3. Public con As ADODB.Connection
  4. Public rs As ADODB.Recordset
  5. Public constring As String
When declaring variables, follow these guidelines:

Public: For use through out the project. Declare them in declarations section of a module.
Private: For use through a specific form. Declare them in the declarations section of the form.
Dim: For use only within a specifc sub/function/control event.