Ajuda - Script para consulta em BD

[lcs]

Bom galera eu consegui fazer essa consulta para meu BD em ACCES so que esta dando erro na seguinte linha

 strconn = control.ConnectionString o que sera

aqui o codigo completo.

 'Declarando um Objeto do Tipo conection para se conectar ao Banco
    Dim cn As New ADODB.Connection
   
    'Esse o o nosso Recordset ele será responsavel por
    'manipular os Dados na nossa Aplicacao
    Dim rs As New ADODB.Recordset




Private Sub txt_codigo_de_barras_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
       
     strconn = control.ConnectionString
        'Pegando a mesma string de conexão que vc usou no controle
       
       
        'abrindo a Conexao....
        cn.Open strconn
       
        'Criando a instancia do Record Set
        Set rs = New ADODB.Recordset
       
       
        'Variavel que vai Armazenar a consulta ..
       
        Dim strSQL As String
       
                 strSQL = " SELECT * "
        strSQL = strSQL & " FROM Entrada "
        strSQL = strSQL & " WHERE Codigo_de_Brarras = " & txt_codigo_de_barras.Text
       
          'Executando a Consulta no Banco de Dados...Onde
            'Cn = é a Conexão com o Banco
            'adOpenForwardOnly = é o Cursor que vai percorrer os Dados nesse ele ira so ler dados pra frente
            'adLockReadOnly = Tipo de Trava do recordSet quer dizer que vc nao pode atualizar dados nele somente ler
           
        Set rs = cn.Execute(strSQL)
        'Esse Comando "prende" o Objeto e vc pode usar apenas ponto para as propriedades dele
        With rs
       
            'Verificando se Retornou algo, Caso seja EOF (end of File) nao veio nada na Consulta
           
            If Not .EOF Then
               'Primeiro modo de retornar dados de um Rs
               txt_nome.Text = !nome
               
               txt_valor.Text = .Fields("Valor")
               
            End If
         End With
         cn.Close
    End If
End Sub

Agradeço quem puder me ajudar pois ja estou atras disaso a tempos..

fallow lcs

[Alucard]

Cara posta aí qual é o erro que está dando.... porque pode ser a tipagem de dados que não está correta...
Faço conecção de forma bastante diferente, mas poderia ser....
E também nesse código você não declarou strconn para verificar qual é o seu tipo.