Hej!

Jag har en User Web Control där visar delar ser ut så här

        Private intGroupID As Integer
        Private intStoreID As Integer
        
        Public WriteOnly Property GroupID() As Integer
            Set(ByVal Value As Integer)
                intGroupID = Value
            End Set
        End Property

        Public WriteOnly Property StoreID() As Integer
            Set(ByVal Value As Integer)
                intStoreID = Value
            End Set
        End Property

Function ReadStore(ByVal groupID As Integer, ByVal townID As Integer)

            cmd.CommandText = "SELECT Store.* FROM Store WHERE ((Store.GroupID = " & intGroupID & ") AND (Store.TownID = " & townID & "))"
            cmd.Connection = cn
            cmd.Connection.Open()

            Dim dataReader As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
            Do While dataReader.Read
                intStoreID = dataReader("StoreID")
                txtName.Text = dataReader("Name")
                txtAddress1.Text = dataReader("Address1")
                txtAddress2.Text = dataReader("Address2")
                txtManager.Text = dataReader("Manager")
                txtPhone.Text = dataReader("Phone")
                txtFax.Text = dataReader("Fax")
                txtEmail.Text = dataReader("Email")
                txtOpenWeek.Text = dataReader("OpenWeek")
                txtCloseWeek.Text = dataReader("CloseWeek")
                txtOpenSat.Text = dataReader("OpenSat")
                txtCloseSat.Text = dataReader("CloseSat")
                txtOpenSun.Text = dataReader("OpenSUn")
                txtCloseSun.Text = dataReader("CloseSun")
            Loop

            dataReader.Close()
            cmd.Connection.Close()
        End Function

Det är inte så enkelt att du använder fel variabel i SELECT-satsen ?
Ska det inte vara GroupID i stället för intGroupID ?

Borde väl också göra tilldeningen intGroupID = GroupID ?

Eller skräp i db:n - byt While mot If så du bara kör första posten

/Johan