Try Catch を使用して (App.Config) 接続文字列のログイン失敗を表示する方法

まず app.config 接続文字列に値を割り当てます:

My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial 
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" & 
Me.Password1.Text & "'"
  

 次に、Try Catch Block を使用します。接続に失敗した場合は、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
  

 globalConnStr をグローバル変数として宣言し、ログイン資格情報の確認が完了したら、接続文字列を globalConnStr に割り当てます。この後、globalConnStr 文字列をプログラムで何度でも使用できます。