Visual Basic - AYUDA SQL

tengo esta sentencia para motrar el resultado en un datareport

Set rsRptPeliculas = New ADODB.Recordset
sqlStringRptPeliculas = "Select * from tableta where es='" & "en curso" & "'"
rsRptPeliculas.CursorLocation = adUseClient
rsRptPeliculas.Open sqlStringRptPeliculas, cn, adOpenForwardOnly, adLockPessimistic

Set reporte4.DataSource = rsRptPeliculas
reporte4.Show

el problema es que cuando hago la consulta con el like no me sale nada
Set rsRptPeliculas = New ADODB.Recordset
sqlStringRptPeliculas = "Select * from tableta where es like 'apr*'
rsRptPeliculas.CursorLocation = adUseClient
rsRptPeliculas.Open sqlStringRptPeliculas, cn, adOpenForwardOnly, adLockPessimistic

Set reporte4.DataSource = rsRptPeliculas
reporte4.Show

Me parece que lo que te falla es ese... es='" & "en curso" & "'
Si es un nombre de tabla con espacio entre palabras, deberías ponerlo así
tabla = "en curso"
[" & tabla & "]

Y si es una variable de cadena, pues tal como lo tienes pero no debe tener espacio intermedio.