Weired goings on in VB

I have got 2 strange issues occuring in Visual Studio VB6 SP6.
first one is that I have a listview and i assign a tag to each item as shown bellow.
VB Code:
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim Entry As ListItem
 
Counter = 0
 
conn.Open "DSN=kar;uid=admin;vb=;database=kar"
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * from Partz "
 
ListView2.ListItems.Clear
With rs
   .CursorLocation = adUseClient
   .Open cmd, , adOpenStatic, adLockReadOnly
   .MoveFirst
   Do While Not .EOF
         Set Entry = ListView2.ListItems.Add(, , .Fields(0))
            Counter = Counter + 1
            ListView2.ListItems(Counter).Tag = .Fields(11)
            Entry.SubItems(1) = .Fields(6)
            Entry.SubItems(2) = .Fields(5)
   .MoveNext
   Loop
rs.Close
conn.Close
End With
When I run the code on my pc at home it will pick up the tag when i click on the listview as the appropriate value, but when i run it at work it will produce the tag of the item as nothing.

Secondly...

When i load a form with a combo control it doesnt load the control correctly. It half paints the control with only the curser flashing. if you click on the control or press the down curser you can see the values in the combo box and then the form correctly draws the control.
Any Ideas anyone...?

Thanks