Jo takhle, tak to se omlouvám špatně jsem to pochopil. Myslel jsem že chcete udělat proceduru kde bude celý dotaz. Tak si nadeklarujte spojení uplně nahoře aby proměnná byla platná v celém modulu:
Dim connection As New OleDb.OleDbConnection("SERVER=jmeno_serveru;DATABASE=jmeno_database;UID=jmeno_uzivatele;PWD=heslo_k_databazi")
a pak spojení můžete otevírat a uzavírat takto:
connection.Open()
connection.Close()
Bohužel teď z hlavy nevím connectnString pro oleDb ten co jsem napsal je pro sql server. Ale přehled connectString najdete na http://www.connectionstrings.com/
|