[Resolvido]Duvida em metodo de conexão recordset

Boa tarde
quando no código abaixo já indico o tipo de cursor ou bloqueio :

Dim rs4 As New ADODB.Recordset
Set rs4.ActiveConnection = conexao
rs4.CursorLocation = adUseClient
rs4.CursorType = adOpenKeyset
rs4.LockType = adLockReadOnly ' somente leitura

'método 1
rs4.Open "SELECT CodigoDoProduto, Descricao, Aplicacao, Referencia, Fabricante, Venda, UnidadeMedida, Loja1, Loja2, Observacoes, Locacao, Locacao2, Multiplo, CodigoDaMensagem, CodigodeBarras " & _
"FROM Tbl_Produtos WHERE CodigodeBarras Like '" & Me.CodBarras & "'", conexao, adOpenKeyset, adLockReadOnly '<==== estaria errado aqui pois ja indiquei la em cima

'método 2
rs4.Open "SELECT CodigoDoProduto, Descricao, Aplicacao, Referencia, Fabricante, Venda, UnidadeMedida, Loja1, Loja2, Observacoes, Locacao, Locacao2, Multiplo, CodigoDaMensagem, CodigodeBarras " & _
"FROM Tbl_Produtos WHERE CodigodeBarras Like '" & Me.CodBarras & "'" '<==== assim ele reage conforme indiquei em cima

somente uma confirmação os dois métodos seriam corretos

Boa tarde,
as duas formas estão corretas, assim decida por uma e seja feliz!

As 2 formas estão corretas.

Apenas um pitaco: Particularmente, uso concatenação de Instrução SQL para ficar mais legível também:

Código:



    Dim rs4    As New ADODB.Recordset
    Dim sSQL    As String
   
   
    sSQL = ""
    sSQL = sSQL & " SELECT "
    sSQL = sSQL & "  CodigoDoProduto"
    sSQL = sSQL & " ,Descricao"
    sSQL = sSQL & " ,Aplicacao"
    sSQL = sSQL & " ,Referencia"
    sSQL = sSQL & " ,Fabricante"
    sSQL = sSQL & " ,Venda"
    sSQL = sSQL & " ,UnidadeMedida"
    sSQL = sSQL & " ,Loja1"
    sSQL = sSQL & " ,Loja2"
    sSQL = sSQL & " ,Observacoes"
    sSQL = sSQL & " ,Locacao"
    sSQL = sSQL & " ,Locacao2"
    sSQL = sSQL & " ,Multiplo"
    sSQL = sSQL & " ,CodigoDaMensagem"
    sSQL = sSQL & " ,CodigodeBarras "
    sSQL = sSQL & " FROM Tbl_Produtos "
    sSQL = sSQL & " WHERE CodigodeBarras Like '" & Me.CodBarras & "'"
    rs4.Open sSQL, conexao, adOpenKeyset, adLockReadOnly
   
    If Not rs4.EOF Then
        '-- seu código...
    Else
        MsgBox "Registro não localizado.", vbExclamation, "Mensagem"
    End If
   
    rs4.Close
    Set rs4 = Nothing



Valeu.
[]'s

FIM

Obrigado Marcelo e Alexandre,  vou aplicar aqui as aplicações,   obrigado  !

Grato pelo retorno!