Visual Basic - Como reparo este erro en el datagrid

miren tengo que mostrar los datos en el data grid pero a la hora de pasarle al datasource el objeto manda un error "70004" el conjunto de filas no admite marcadores
Private Sub List1_Click()
search = List1.Text
'------------abre la conexion para los licores----------
Set cnlist = New ADODB.Connection
cnlist.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hooka.mdb;" & _
"Persist Security Info=False"
Set rslist = New ADODB.Recordset

Set cnVentas = New ADODB.Connection
cnVentas.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hooka.mdb;" & _
"Persist Security Info=False"
Set rsVentas = New ADODB.Recordset

rslist.Open "SELECT * FROM Licores WHERE NombreLicor='" & search & "'", cnlist, adOpenDynamic, adLockPessimistic
If Not (rslist.EOF Or rslist.BOF) Then '-----Lista----
'--------abre la conexion para las ventas-----------

rsVentas.Open "SELECT * FROM Ventas WHERE Descripcion='" & search & "'", cnVentas, adOpenDynamic, adLockOptimistic, adCmdText
If Not (rsVentas.EOF Or rsVentas.BOF) Then '----Ventas----
rsVentas!Cantidad = rsVentas!Cantidad + 1
rsVentas.Update
rsVentas.Requery
Else
If (txtMesero.Text = "" Or txtMesa.Text = "") Then
mensaje = MsgBox("Debe Asignar una Mesa y un Mesero Primero", vbCritical)
cmbMesero.Visible = True
lblMeseros.Visible = True
Exit Sub
Else
rsVentas.AddNew
rsVentas!Mesa = txtMesa
rsVentas!Descripcion = rslist!Nombrelicor
rsVentas!Cantidad = 1
rsVentas!Precio = rslist!Precio
rsVentas!Fecha = Date
rsVentas!Usuario = txtMesero.Text
rsVentas.Update
rsVentas.Requery
Set DataGrid1.DataSource = rsVentas
End If
End If
Call calcular
cmbMesero.Visible = False
lblMeseros.Visible = False
End If
rslist.Close
Set rslist = Nothing
cnlist.Close
Set cnlist = Nothing
rsVentas.Close
Set rsVentas = Nothing
cnVentas.Close
Set cnVentas = Nothing

primeramente tu codigo es una laberinto y medio....

mira un ejmeplo de abrir cargar un datagrid:

set cn=new adodb.connection
cn.open "Aca tu conexion"
set rs=new adodb.recordset
rs.cursorlocation=userclient ''(eset user client no me recuerdo si es asi como se escribe pero es algo asi)
rs.open "select * from tabla",tu ya sabes k continua
y luego sigue esto:
set datagrid1.datasource=rs

y ya esta... asi k trata k tu codigo sea un poco mas limpio por k asi das una flojera revisarlo ... chao nene

NombreRecordset = .CursorLocation = adUseClient ANTES DE ABRIR EL RECORDSET