Public Class AccessDB_Class
function ConnettiDb(byVal connString as string)
Dim Conn As New SqlConnection(ConnString)
.....
end function

Puoi quando la richiami

AccessDB_Class.ConnettiDb("qui metti i parametri per la connessione")