Najpierw przypisz wartość do ciągu połączenia app.config:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Następnie użyj Try Catch Block. Jeśli połączenie nie powiedzie się, użyj swojego okna wiadomości w bloku catch.
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
Zadeklaruj globalConnStr jako zmienną globalną, a po zakończeniu sprawdzania poświadczeń logowania przypisz ciąg połączenia do globalConnStr. Następnie możesz użyć ciągu globalConnStr tyle razy, ile chcesz w swoim programie.