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