من در فايل Global كانكشن استرينگ رو در يك Application مي ريزم و بعد در صفحاتم با دستور Application("Con").Open و .close اون رو باز و بسته مي كنم و استفاده مي كنم
Dim conn AsNew SqlConnection("Data Source=MICROSOF-59316D;Initial Catalog='L:\FOROUGH\TAMRIN PEZESHK\APP_DATA\DATABASE.MDF';Integrated Security=True")
Application("con") = conn
Dim strcommand AsString = "select * from Posts ORDER BY Date DESC"
Dim com AsNew SqlCommand(strcommand, Application("con"))
Dim myreader As SqlDataReader
'Dim s As String
Application("con").open()
myreader = com.ExecuteReader
DoWhile myreader.Read
.
.
.