Visual Basic

dt.Columns.Add(New DataColumn("Cell", GetType(Long)))

For Each row As DataRow In dtStud.Rows

     dr(3) = row("stud_phone")
     dt.Rows.Add(dr)
Next

'Dim dgView As New DataView(dt)
dgrStudList.DataSource = dt

dim streamwriter as streamwriter("test.txt")
w.writeline("hello")  

<br />
<DllImportAttribute("WIN32SmartDLL.dll")> _ <br />
Private Shared Function AddNumbers(ByVal a As Integer, ByVal b As Integer) As Integer <br />
End Function <br />
<br />
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) <br />
    Dim answer As Integer = AddNumbers(25, 25) <br />
    <br />
End Sub <br />

Private writer As Lucene.Net.Index.IndexWriter

Private Sub InsertDBIndexData(ByVal sCPR As String)
        Dim doc As New Document
        Dim f1 As New Field("CPR", sCPR, Field.Store.YES, Field.Index.TOKENIZED)
        doc.Add(f1)
        writer.AddDocument(doc)
        doc = Nothing
        Return
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim odConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=....mdb...")
        odConnection.Open()
        writer = New Lucene.Net.Index.IndexWriter(DBIndexLocation, New StandardAnalyzer, True)

        Dim odCommand As OleDbCommand = New OleDbCommand("select * from TPers", odConnection)
        'Dim odReader As OleDbDataReader = odCommand.ExecuteReader
        Dim odDataAdaptor As OleDbDataAdapter = New OleDbDataAdapter(odCommand)
        Dim odDataSet As DataSet = New DataSet
        odDataAdaptor.Fill(odDataSet, "TPers")

        Dim odDataTable As DataTable = odDataSet.Tables("TPers")

        For Each dr As DataRow In odDataTable.Rows
            InsertDBIndexData(dr("cpr").ToString)
        Next

        writer.Optimize()
        writer.Close()
        odDataAdaptor.Dispose()
        odConnection.Close()
    End Sub