Olá, alguém poderia me ajudar, não sei oque esta errado nesse comando,
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
rst.Open "Select * From Maquinas WHERE Nome=' " & txtNome.Text&" ' , con, adOpenKeyset, adLockOptimistic, adCmdText"