Dim Sqldatabaseip$, Sqldatabaseuid$, Sqldatabasepwd$, Sqldatabase$
Sqldatabaseip = "192.168.1.112"
Sqldatabaseuid = "sa"
Sqldatabasepwd = ""
Sqldatabase = "db_2008"
Con.ConnectionString = "Driver={sql server};server=" & Sqldatabaseip & ";uid=" & Sqldatabaseuid & ";pwd=" & Sqldatabasepwd & ";database=" & Sqldatabase & ""