Tilldela först värdet till app.config-anslutningssträngen:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Använd sedan Try Catch Block. Om anslutningen misslyckas använd din meddelanderuta i fångstblocket.
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
Deklarera globalConnStr som global variabel och när du är klar med kontrollen av inloggningsuppgifterna tilldela anslutningssträngen till globalConnStr. Efter detta kan du använda globalConnStr-strängen så många gånger du vill i ditt program.