Visual Basic - error llenar datagrid (sql server)

hola gente como estas, tengo el siguiente problema cuando quiero llenar el datagrid con una tabla de sql server me da el siguiente error!!!!!

codigo:
esto esta en el load......

Call coneccionsql

Set rsclientes = New ADODB.Recordset
sql = "select * from PERSONAS"
rsclientes.Open sql, cnn, adOpenDynamic, adLockPessimistic, adAsyncFetch
Set DataGrid1.DataSource = rsclientes

error:

el conjunto de filas no adminte marcadores!!!!

si alguien me puede ayudar, desde ya muchas gracias!!!!!!!!!!!!!!!!!!!

Tu problema esta en adAsyncFetch, prueba con este codigo
sql = "SELECT * FROM EVENTOS "
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.Open sql, cnAccess
End With

Set DataGrid1.DataSource = rs

Saludos
Manuel Lima - Perú

GRACIAS MANUEL, EL CODIGO QUE ME PASASTE FUNCIONA PERFECTAMENTE.
SALUDOS
DARIO LA RIOJA - ARGENTINA