Dim i As String
rst.Open "SELECT [Serial Number], [Disk Type Name], [Genre Name], [Title], [Length], [Year Made], [Description]FROM DISKDATAtable;", _
rst.MoveFirst
i = 0
With Me . Combo 0
.Clear
Do
.AddItem
. List (i, 0) = rest ![Serial Number]
. List (i, 1) = rest ![Disk Type Name]
. List (i, 2) = rest ![Genre Name]
. List (i, 3) = rest ![Title]
. List (i, 4) = rest ![Length]
. List (i, 5) = rest ![Year Made]
. List (i, 6) = rest ![Description]
i = i + 1
rest.MoveNext
Loop Until rest . EOF
End With
End Sub
svince1884
week_8.docx
0
