Visual Basic.NET - BUSQUEDA DE REGISTROS

buenas! quisiera saber como mostrar el resultado de una consulta en los textbox correspondientes, he intentado de todas las formas incluso con el databinding y no funciona, esto es lo que tengo

Dim myCommand As New Data.OleDb.OleDbCommand
Dim accAdapterUpdate As Data.OleDb.OleDbDataAdapter
Dim stringsql As String
Dim accdataset As New DataSet
AccConexion = New OleDb.OleDbConnection
AccConexion.ConnectionString = stringconexion
AccConexion.Open()
Try
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli='" & clients.codigo.Text & "'"

pero como le digo que muestre esos campos en los textbox correspondientes????????????

Private Sub Consultar(ByVal stringconexion As String, ByVal CodigoCliente As String)
Dim stringsql As String = String.Empty
Dim accAdapter As OleDbDataAdapter = Nothing
Dim accdataset As New DataSet
Try
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli=@codigo"
accAdapter = New OleDbDataAdapter(stringsql, stringconexion)
accAdapter.SelectCommand.CommandType = CommandType.Text
accAdapter.SelectCommand.Parameters.Add("@codigo", OleDbType.VarChar, 15)
accAdapter.SelectCommand.Parameters("@codigo").Value = CodigoCliente
accAdapter.Fill(accdataset)

'Si hay registros
If accdataset.Tables(0).Rows.Count > 0 Then
Textbox1.Text = accdataset.Tables(0).Rows(0)("tipocli").ToString()
'Y así con los demás campos
End If
Catch ex As Exception
'TODO: Colocar el manejador de error
End Try
End Sub

Claro que si me preguntas, la verdad NO utilizaría un DataSet para retornar registros y mostrarlos, debido a que un DataSet es una estructura más pesada y puedes utilizar un Reader que es más liviano y como solo vas a mostrar los registros es mejor!

Dim stringsql As String = String.Empty
Dim accReader As OleDbDataReader = Nothing
Dim myCommand As OleDbCommand = Nothing
stringsql = "select tipocli,nit,contricli,inactivocli, contactocli, direccioncli,zonacli,codigopos, ciudadcli, webcli, tipocli, saldo_actcli, observacioncli from clientes where codigocli=@codigo"

myCommand = New OleDbCommand(stringsql, New OleDbConnection(stringconexion))
myCommand.CommandType = CommandType.Text
myCommand.Parameters.Add("@codigo", OleDbType.VarChar, 15)
myCommand.Parameters("@codigo").Value = CodigoCliente
myCommand.Connection.Open()
accReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
If accReader.HasRows Then
While accReader.Read
TextBox1.Text = accReader.GetString(0) ' La posición 0 corresponde al campo tipocli
End While
End If
accReader.Close()
Catch ex As Exception
'TODO: Colocar el manejador de error
End Try