Visual Basic - Consulta SQL

Agradezco lo a quien pueda colaborarme con la sgte consulta :
quiero hacer una consulta a una tabla donde pueda degitar los 3 primeros numeros de un campo llamado cuenta q contiene 14 digitos y me liste todos aquellos q coincidan de derecha a izq en los tres primeros numeros.
yo he realizado la sqte:

Private Sub Command1_Click()
If Trim(numero_cuenta) <> "" Then
Dim reg_cuentas As Recordset
Set reg_cuentas = New Recordset
With reg_cuentas
.Source = "SELECT * FROM AMODISCO WHERE CUENTA LIKE '* " & numero_cuenta & "*' "
.ActiveConnection = conexion
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
reg_cuentas.Open
Set Form1.DataGrid1.DataSource = reg_cuentas
Form1.Show
Else
MsgBox "Debe Indicar el Numero de Cuenta"
End If
End Sub

Cuando ejecuto la consulta mi resultado es un registro en blanco incluso si indico el numero completo de cuenta.

Gracias

Tu problema es el asterisco, cuando se usa LIKE no se hace en conjuncion con el asterisco sino mas bien con el signo de porcentaje.

Reemplaza el segundo asterisco por % y quita el primero.

Saludos desde Lima