Visual Basic - dudas con un codigo

Soy un novel en programacion en Visual Basic Mas bien quiero apreender y trato de buscar registros en nua BD con el siguiente codigo
Private Sub cmdbuscar_Click()
Dim strSQL As String
Dim strAnswer As String


strAnswer = InputBox("ingrese el Nombre del Tema", "buscar Tema")
strSQL = "select*from Temas where[Tema]like"&'"*"&strAnswer&"*"'"

Set recTemas = dbhemeroteca.OpenRecordset(strSQL)
If recTemas.RecordCount = 0 Then
MsgBox "no se hab Encontrado Temas"
Set recTemas = dbhemeroteca.OpenRecordset("Temas")
Else
recTemas.MoveFirst
MOSTRAR
End If
End Sub
Pero no me resulta agredeceria cualquier ayuda que pudieran darme, la BD esta echa en Acces

trata poniendo % en vez de * en strSQL, ojalá se resuelva tu problema

Te aconsejo comenzar a usar ADO, si realmente te interesa programar en grande(sistemas distribuidos o cliente servidor)