Private Sub Form_Load()
Dim vi As New ValueItem
Dim cn As ADODB.Connection
Const Provider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Const DataSource = "Data Source=E:\rk.mdb;"
Dim rc As ADODB.Recordset
Dim ss As String
Set cn = New ADODB.Connection
cn.ConnectionString = Provider & DataSource
cn.Open
Set rc = New ADODB.Recordset
ss = "select * from ListMaterials"
rc.Open ss, cn, adOpenKeyset, adLockOptimistic
    While Not rc.EOF
    vi.DisplayValue = rc!ListName
    vi.Value = rc!ListName
    gr.Columns( 0 ).ValueItems.Add vi ' Вот здесь пишет: Ошибка 13 несоответствие типов
    rc.MoveNext
    Wend
 End Sub