1:  Imports System.Data.SqlClient
   2:   
   3:  Public Class PayablesDB
   4:   
   5:      Public Shared Function GetConnection() As SqlConnection
   6:          Dim connectionString As String _
   7:              = "Data Source=localhost\SqlExpress;Initial Catalog=Payables;" _
   8:              & "Integrated Security=True"
   9:          Return New SqlConnection(connectionString)
  10:      End Function
  11:   
  12:  End Class