Проблема в Combobox

[elsen]

есть код он "работает" а проблема в том что запихнув данные в комбо из поля таблизы они удаляются, прошу помоши


Private Sub SSTab1_GotFocus()
Dim strI As String

Adodc1.RecordSource = "Select * from T2_Schaltbeleg "
'Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
strI = Adodc1.Recordset.Fields("Name")
Combo8.AddItem (strI)

Adodc1.Recordset.MoveNext
Loop
Combo8.Refresh
End Sub



есть в етой таблице еше поля и данные ,так вот если указать что в комбо запихнуть данные из другого поля то без проблем но все равно данные стираются из поля Name

[elsen]

вобшем разобрался. ето программа которй принадлежит датенбанк мудрует все что связано с именем поля "нам" она удаляет данные в етом поле. дааас