Mongodb Driver 2.0 find() in VB.net not working - vb.net

Question

I am trying to practice with the C# Driver 2.0 for MongoDB. I don't know C# so I am writing the code in Visual Basic.
When I try to print out a list code won't compile. I know I have the For Each contents commented out but that's not the problem. I want to query the db for all documents in a collection and print them out to a text box.
Below is the code that isn't working. The last part is giving me trouble.
Private Sub btnListUsers_Click(sender As Object, e As EventArgs) Handles btnListUsers.Click
Dim ConnString As String
ConnString = txtConnStr.Text
Dim vDbName As String
vDbName = txtDb.Text
Dim vColName As String
vColName = txtColl.Text
Dim vClient As MongoClient
vClient = DbConnection(ConnString, vDbName, vColName)
Dim vDb As MongoDatabaseBase
vDb = vClient.GetDatabase(vDbName)
Dim vCol As IMongoCollection(Of BsonDocument)
vCol = vDb.GetCollection(Of BsonDocument)(vColName)
Dim query As BsonDocument
query = New BsonDocument("Names", txtListUsers.Text)
For Each item As BsonDocument In vCol.Find(query).ToListAsync()
'print a count
'print bson document
Next
End Sub
Any help is appreciated. I have been banging my head against the keyboard for hours.
BELOW IS THE CODE THAT WORKED FOR ME AFTER ALEX GAVE ME AN ANSWER:
Private Async Sub btnListUsers_Click(sender As Object, e As EventArgs) Handles btnListUsers.Click
Dim ConnString As String
ConnString = txtConnStr.Text
Dim vDbName As String
vDbName = txtDb.Text
Dim vColName As String
vColName = txtColl.Text
Dim vClient As MongoClient
vClient = DbConnection(ConnString, vDbName, vColName)
Dim vDb As MongoDatabaseBase
vDb = vClient.GetDatabase(vDbName)
Dim vCol As IMongoCollection(Of BsonDocument)
vCol = vDb.GetCollection(Of BsonDocument)(vColName)
Dim query As BsonDocument
query = New BsonDocument("Name", txtListUsers.Text)
Dim myList As List(Of BsonDocument) = Await vCol.Find(query).ToListAsync()
Dim i As Integer = 0
For Each vItem As BsonDocument In myList
'count
i += 1
'print bson document
rtfDataDisplay.Text = rtfDataDisplay.Text & vbCrLf & "#" & i.ToString & " - " & vItem.ToString & vbCrLf
Next
End Sub
I had to add Async to the sub. I also had my key "Name" incorrect. After that things went smoothly. Woo Hoo!

Answer 1

Your problem is in this line:
For Each item As BsonDocument In vCol.Find(query).ToListAsync()
The call to the ToListAsync() method returns an awaitable Task(Of List(Of BsonDocument)), i.e. a promise that it will return a list that you can enumerate when it has completed fetching it. You need to Await it, to get to the list. As in:
Dim myList As List(Of BsonDocument) = Await vCol.Find(query).ToListAsync()
For Each item As BsonDocument in myList
'print a count
'print bson document
Next
An alternative construct offered by the MongoDB driver, is to use its ForEachAsync method, and supply it with a lambda delegate argument.