per sql server cambia la stringa di conn. con:
con access:codice:StrConn = "Provider = SQLOLEDB; Data Source = nome_della_macchina_server; Database = nome_del_db; User ID = user_id; Password=password"
codice:strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _ Server.MapPath("database.mdb") & _ ";Jet OLEDB:Database Password=pword;"