Consultas SQL directo en Adodc

Soy Juan Diego, mira necesito una mano con lo siguiente:
Utilizo una variable string, una recordset y una connection para hacer esta consulta sql lo que hace es una búsqueda y compara haber sí el proveedor existe:
Private Sub txtcod_prov_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        sql = "Select * From Proveedor where Codigo_Proveedor=" + txtcod_prov + ""
        Set rst = cnn.Execute(sql)
        If Not rst.EOF Then
            MsgBox ("El Proveedor ya existe")
            Me.txtcod_prov.Text = ""
            Me.txtcod_prov.SetFocus
            Exit Sub
        Else
            Me.txtnom_prov.SetFocus
        End If
    End If
End Sub
Lo mismo en esta consulta sql para el código del artículo y que me muestre el nombre y el precio del artículo:
Private Sub txtcodart_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        sql = "Select * from Artículo where Codigo_Articulo=" + Me.txtcodart.Text + ""
        Set rst = cnn.Execute(sql)
        If Not rst.EOF Then
            Me.txtdes.Text = rst.Fields("Nombre_Articulo")
            Me.txtprec_comp = rst.Fields("Precio_Articulo")
            Me.txtcant.SetFocus
            Exit Sub
        Else
            MsgBox ("El Artículo No Existe")
            Me.txtcodart.Text = ""
            Exit Sub
        End If
    End If
End Sub
Y me pregunta es ¿se puede hacer estas consultas con el adodc?
Y si se puede ¿qué codificación usar?
Sí puedes responderme y solucionar esto te lo agradeceré.