Question reference to an object not set to instance of object?

[xone2003]

here is the code...
the errore is on line "dim objdataAdapter = From ..." and i can't open the form; i don't know what is the problem.
The error say " object not imposted on istance of object..."

Anyone can help me?

sorry for my english!

Public Class Detail

    Dim objDataAdapter = From riga As DBDatiBiciDataSet.DatiBiciRow In    Me.DbDatiBiciDataSet.DatiBici Select riga

    Dim objDataSet As DataSet
    Dim objDataView As DataView
    Dim objCurrencyManager As CurrencyManager


    Private Sub FillDataSetAndView()
        objDataSet = New DataSet()
        objDataAdapter.fill(objDataSet, "DatiBici")
        objDataView = New DataView(objDataSet.Tables("DatiBici"))
        objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)

    End Sub

    Private Sub bindfields()
        'cancello ogni precedente collegamento
        TB_Bike.DataBindings.Clear()
        TB_Cat.DataBindings.Clear()
        TB_Anno.DataBindings.Clear()
        TB_Day.DataBindings.Clear()
        TB_Data.DataBindings.Clear()
        TB_Km.DataBindings.Clear()
        TB_Vmax.DataBindings.Clear()
        TB_Avg.DataBindings.Clear()
        TB_TT.DataBindings.Clear()
        RTB_Partec.DataBindings.Clear()
        RTB_Note.DataBindings.Clear()
        RTB_CondMet.DataBindings.Clear()
        RTB_Descrizione.DataBindings.Clear()

        'collego le TextBox ai campi della tabella datibici.
        TB_Bike.DataBindings.Add("Text", objDataView, "Bicicletta")
        TB_Cat.DataBindings.Add("Text", objDataView, "Categoria")
        TB_Anno.DataBindings.Add("Text", objDataView, "Anno")
        TB_Day.DataBindings.Add("Text", objDataView, "Giorno")
        TB_Data.DataBindings.Add("Text", objDataView, "Data")
        TB_Km.DataBindings.Add("Text", objDataView, "Chilometraggio")
        TB_Vmax.DataBindings.Add("Text", objDataView, "VelocitàMax")
        TB_Avg.DataBindings.Add("Text", objDataView, "VelocitàMedia")
        TB_TT.DataBindings.Add("Text", objDataView, "TempoTotale")
        RTB_Partec.DataBindings.Add("Text", objDataView, "Partecipanti")
        RTB_Note.DataBindings.Add("Text", objDataView, "Note")
        RTB_CondMet.DataBindings.Add("Text", objDataView, "CondizioniMeteo")
        RTB_Descrizione.DataBindings.Add("Text", objDataView, "Descrizione")

        ToolStripStatusLabel1.Text = "ready"
    End Sub

.
.
.
.