Visual Basic.NET - Una gran consulta

hola amigos como estan una consulta en vb6 utilizaba este codigo para realizar busquedas realmente me era muy util y me solucionaba muchos problemas ahora en vb.net no puedo hacerlo o bueno no encuentro la forma de como ........... si alguien tiene algun ejemplo les agradecere mucho

Dim rs As New ADODB.Recordset
rs.Open("SELECT * FROM vclientes where ruc = '" & txtruc.Text & "' ", cn)
If Not (rs.EOF And rs.BOF) Then
DcPCGR.Text = IIf(IsDBNull(rs.Fields("PCGR").Value), "", rs.Fields("PCGR").Value)
txtdetalle = IIf(IsDBNull(rs.Fields("detalle").Value), "", rs.Fields("detalle").Value)
End If
rs = Nothing

Gracias desde ya

Con un DataAdapter

p.e. con una conexion OleDb:

Dim da As New OleDbDataAdapter("Select * From LaTabla Where ElCampo = '" & TextBox1.Text & "'", conexion)

lo cargas en un DataSet y muestras los datos.