Selec com where

Esse código abaixo gera um arquivo txt tendo como base um tabela em access con o arquivo é puxado de acordo com o código de barra, se eu digito o código de barra direto, ele gera o arquivo normal, mais quando eu tento usar na linha selec uma variavel pra pegar o código de barra dentro de um formulário ele gera o arquivo em branco.

Private Sub Form_Load()
Dim strEan1 As String
strEan1 = "7896185932013"

Dim banco As String
Set cn = New ADODB.Connection

strArquivo = "c:\teste\sancol.mdb"
strLocal = App.Path
Set cn = CreateObject("ADODB.Connection")
banco = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & strArquivo & ";" & _
"DefaultDir=" & strLocal & ";" & _
"Uid=Admin;Pwd=;"

cn.Open banco
'__________________________________

Dim rs As ADODB.Recordset

Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "SELECT * FROM vidalink WHERE ean = ‘strEan1’", cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then
MsgBox "Não existem dados cadastrados no sistema.", vbExclamation, "Erro"
Else
Open App.Path & "\" & "ney.txt" For Output As #1
Do Until rs.EOF
Print #1, rs("ean") & rs("descrição") & rs("laboratório") & rs("preço") & rs("bloqueado") & rs("pmc")

rs.MoveNext
Loop
Close #1
End If
.Close
End With
End Sub
Onde está o meu erro...

Emerson Sandro