Access y VB.net, recuperar datos de la base de datos en un label

[aquarius12818]

hola miren tengo que recuperar un campo de mi base de datos de access en un label pero a la hora que corro me marca el siguiente error "referencia a objeto no establecida como la instancia de un objeto, miren si lleno mi datagrid si lo hace pero a la hora de tomar el campo de la base de datos me marca ese error a la hora de pinchar el boton aceptar se tienen q poner cada uno de los campos en los labels, miren aqui tengo mi codigo:

Public Class Examen
Dim miObjeto As New MisMetodos
Dim strConsulta As String
Dim dt As DataTable

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
strConsulta = "SELECT Pregunta FROM Preguntas"
miObjeto.Ejecuta_Consulta_Accion(strConsulta)
Label2.Text = dt.Rows(0).Item("pregunta").ToString()

End Sub
End Class

ahora esta es la clase donde conecto a la base de datos:

Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Public Class MisMetodos
Dim MiConexion As OleDbConnection
Dim MiComando As OleDbCommand
Dim oConnect, oQuery As String

Public Sub Conecta_BD()

Dim strConexion As String
strConexion = My.Settings.cadena_conexion
MiConexion = New OleDbConnection(strConexion)
MiConexion.Open()
End Sub

Public Sub Ejecuta_Consulta_Accion(ByVal prmConsulta As String)
Try
Conecta_BD()
MiComando = New OleDbCommand(prmConsulta, MiConexion)
MiComando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString())

End Try
End Sub


'EJECUTA CONSULTA A SQL SERVER Y DEVUELVE UN DataSet
Public Function EjecutaConsulta_SQL_Server_DS(ByVal prmConsulta As String) As DataSet

Dim resultado As New DataSet("xDataSet")
Dim adap As OleDbDataAdapter
Conecta_BD()
adap = New OleDbDataAdapter(prmConsulta, MiConexion)
adap.Fill(resultado, "xdataset")
Return resultado
End Function

Public Function EjecutaConsulta_SQL_Server_Escalar(ByVal prmConsulta As String) As String
Dim cd As OleDbCommand
cd = New OleDbCommand(prmConsulta, MiConexion)
Return cd.ExecuteScalar
End Function

Public Sub Cierra_BD()
MiConexion.Close()
End Sub

End Class

NECESITO HELP EL CAMPO SE LLAMA PREGUNTA Y LA TABLA PREGUNTAS