Visual Basic.NET - contador de registros

Dim consulta As String

Private Sub btver_Click(sender As Object, e As EventArgs) Handles btver.Click

	consulta = "SELECT count(no_control) as total from repor1 where nombre_completo = '" & cbtutor.Text & "'"

	tb1.Text = consulta

End Sub

'ACCESOS ACCESS

Public OLECONEXION As OleDbConnection

Sub CONECTAR_ACCESS(ByVal ARCHIVO As String) 'conectar con access

	Dim CADENACONEXION As String

	CADENACONEXION = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ARCHIVO

	OLECONEXION = New OleDbConnection(CADENACONEXION)

	OLECONEXION.Open()

End Sub

Sub DESCONECTAR_ACCESS() 'desconectar access

	OLECONEXION.Close()

End Sub

Sub CARGA_OLEDATASET(ByRef DS As Data.DataSet, ByVal CADENA As String) 'cargar un dataset desde access

	Dim dbDataAdapter As OleDbDataAdapter

	dbDataAdapter = New OleDbDataAdapter(CADENA, OLECONEXION)

	DS.Clear()

	dbDataAdapter.Fill(DS)

End Sub

Sub EJECUTA_COMANDO_OLEDB(ByVal CONEXION As OleDbConnection, COMANDO As String) 'ejecutar un comando en access

	Dim CMD As New OleDbCommand(COMANDO, OLECONEXION)

	If OLECONEXION.State = ConnectionState.Closed Then

		OLECONEXION.Open()

	End If

	CMD.ExecuteScalar()

End Sub

CONECTAR_ACCESS("C:\Archivos de prueba\\cursos.MDB") 'conectas con el access

Dim DSA As New Data.DataSet 'creas una variable para recoger los datos.

'cargas el dataset

CARGA_OLEDATASET(DSA, "SELECT count(no_control) as total from repor1 where nombre_completo = '" & cbtutor.Text & "'")

tb1.text = DSA.TABLES(0).ROWS(0).ITEM("TOTAL") 'pones el valor de total en el textbox