Reply to thread

Message: [QUOTE="mzim, post: 6903, member: 62"] [code] Dim ds As New DataSet() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ds.Tables.Add(New DataTable("dt")) ds.Tables(0).Columns.Clear() ds.Tables(0).Columns.Add(New DataColumn("truckID")) ds.Tables(0).Columns.Add(New DataColumn("Company")) ds.Tables(0).Columns.Add(New DataColumn("Typeof")) End Sub 'populating a data to your datatable. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dr As DataRow = ds.Tables(0).NewRow dr(0) = Me.TextBox1.Text dr(1) = Me.TextBox2.Text dr(2) = Me.TextBox3.Text ds.Tables(0).Rows.Add(dr) ListBox1.Items.Add(TextBox1.Text) Me.cleartextbox() End Sub [/code] [/QUOTE]