Qualcuno mi può aiutare?

Poosso utilizzare i datatable?

Dim dati As New DAL
Dim m_conn As SqlConnection

m_conn = New SqlConnection(dati.stringaConnessione)
'apro l`oggetto objConn
m_conn.Open()

Dim strSQL As String = "SELECT NomeTipo_conc from tblTipo_concerto where IDTipo_conc=1"
Dim objCommand As New SqlCommand(strSQL, m_conn)

Dim objDataReader As SqlDataReader
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
TxtProgramma.Text = objDataReader("NomeTipo_conc")

Non va... cosa sbaglio?