Tildel først værdien til app.config-forbindelsesstrengen:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Brug derefter Try Catch Block. Hvis forbindelsen mislykkes, skal du bruge din beskedboks i catch-blokken.
Dim sqlCnn As New SqlConnection
Dim connString as string = My.Settings.Item("CustomerConnectionString").value
Try
sqlCnn = New SqlConnection(connString)
sqlCnn.open()
globalConnStr = connString
Catch ex As SqlException
MsgBox("Login Failed")
Finally
sqlCnn.close()
End Try
Erklær globalConnStr som global variabel, og når du er færdig med at kontrollere login-legitimationsoplysningerne, tildel forbindelsesstrengen til globalConnStr. Herefter kan du bruge globalConnStr-strengen så mange gange du vil i dit program.