2

Hello Daniweb :)
I am currently doing a programming assignment for college and have hit a brick wall. I am getting an error while trying to fill a combo box.

Private Sub Form_Load()

    'Fill the Network List

    With adoNetwork.Recordset
    Do Until .EOF
            If !Networks <> "" Then
                cboFilterNetwork.AddItem !Networks
            End If
            .MoveNext
        Loop
        .Close
    End With
    
End Sub

VB6 says the error is at Do Until .EOF, this code is exactly the same as a previous program we did in class, but no matter what I have done it simply will not work.

Any help at all will be appreciated

Thank you

-Seán

EDIT: Nevermind I fixed it, think the error was a simple typo, deserve it for doing college work at 4am I guess

Edited by EireJoker: n/a

3
Contributors
2
Replies
5
Views
7 Years
Discussion Span
Last Post by arjunad
0

With testObject
.Height = 100
.Text = "Hello, World"
.ForeColor = System.Drawing.Color.Green
.Font = New System.Drawing.Font(.Font,
System.Drawing.FontStyle.Bold)
End With

Edited by arjunad: n/a

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.