Đầu tiên chỉ định giá trị cho chuỗi kết nối app.config:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Sau đó sử dụng Try Catch Block. Nếu kết nối không thành công, hãy sử dụng hộp thông báo yor trong khối bắt.
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
Khai báo globalConnStr dưới dạng biến toàn cục và khi bạn hoàn tất việc kiểm tra thông tin đăng nhập, hãy chỉ định chuỗi kết nối cho globalConnStr. Sau đó, bạn có thể sử dụng chuỗi globalConnStr bao nhiêu lần bạn muốn trong chương trình của mình.