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"