Try

            Dim myConnString As String = My.Settings.customers_05


            Dim Conn As New SqlConnection(myConnString)

            Dim dsCustomers As New DataSet
            Dim sql As String = "Select * From Customers"
            Dim da As New SqlDataAdapter(sql, Conn)


            da.Fill(dsCustomers, "customers")

            lstCustomers.DataSource = dsCustomers.Tables("customers")
            lstCustomers.DisplayMember = "Name"
            lstCustomers.ValueMember = "custID"
           

        Catch ex As Exception
            MsgBox("I could not fill the listbox of customers..." & Err.Description, MsgBoxStyle.Critical, "System Message")
        End Try