Cara menggunakan Try Catch untuk menampilkan kegagalan Login untuk string koneksi (App.Config)

Pertama-tama tetapkan nilai ke string koneksi app.config:

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

Kemudian gunakan Coba Catch Block. Jika koneksi gagal, gunakan kotak pesan Anda di blok tangkap.

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

Deklarasikan globalConnStr sebagai variabel global dan ketika Anda selesai memeriksa kredensial login, tetapkan string koneksi ke globalConnStr. Setelah ini, Anda dapat menggunakan string globalConnStr sebanyak yang Anda inginkan dalam program Anda.