Private Sub BindAccounts()
        Dim conn As New SqlConnection()
        Dim myCommand As New SqlCommand
        Dim da As New SqlDataAdapter
        Dim myData As New DataTable
 
        Dim SQL As String
        Dim sSQL As String
 
        SQL = "server=" & My.Settings.DataSource & ";" _
         & "user id=" & Login.txtUserName.Text & ";" _
         & "password=" & Login.txtPassword.Text & ";" _
         & "database=" & My.Settings.InitialCatalog
 
        conn.ConnectionString = SQL
        sSQL = "select distinct lngAccountID_pk, strAccountName"
        sSQL = sSQL & " from tblAccounts"
        sSQL = sSQL & " where lngAccountID_pk in (select accountid from tblstaging)"
        sSQL = sSQL & " order by strAccountName"
 
        Try
            conn.Open()
            Try
 
                myCommand.Connection = conn
                myCommand.CommandText = sSQL
                myCommand.CommandType = CommandType.Text
 
                da.SelectCommand = myCommand
                da.Fill(myData)
 
                ddlAccount.DataSource = myData
                ddlAccount.DisplayMember = "strAccountName"
                ddlAccount.ValueMember = "lngAccountID_pk"
 
            Catch myerror As SqlException
                MsgBox("There was an error reading from the database: " 
& myerror.Message)
 
            End Try
 
            ddlAccount.SelectedIndex = 0
 
            conn.Close()
 
        Catch myerror As SqlException
            MessageBox.Show("Error Connecting to Database: " &
myerror.Message)
            conn.Dispose()
        End Try
    End Sub