Code:
Set rs = New ADODB.Recordset
ssql = "Select * from tblorder WHERE CustomerID ='" & custid & "'"
rs.Open ssql, conn

With rs
        If .RecordCount > 0 Then
            Do While Not rs.EOF
                cbodelete.AddItem = rs.Fields(productsize)
            .MoveNext
            Loop
            rs.Close
        End If
    End With