Visual Basic

Open strFileName For Output as #55
Print #55, strInputValue

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Me.TabControl1.TabPages.Add("Index1", "Task 123")<br />
    End Sub<br />
<br />
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        Dim cboClients As New ComboBox<br />
        cboClients.Top = 30<br />
        cboClients.Left = 30<br />
        AddHandler cboClients.SelectionChangeCommitted, AddressOf ComboBox_selectionChangeCommitted<br />
<br />
        cboClients.Parent = Me.TabControl1.TabPages(1) 'Add the combo box the specified tab<br />
    End Sub<br />
<br />
    Private Sub ComboBox_selectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        'Fill the combo box<br />
    End Sub

 <br />
 dim MyConnection As String = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=MyDatabase.mdb;"<br />
 dim connStr As String = "SELECT * FROM table1"<br />
 dim odc As OleDbConnection= New OleDbConnection(MyConnection )<br />
 dim oda As OleDbDataAdapter= New OleDbDataAdapter(connStr, odc)<br />
 dim odb As OleDbCommandBuilder= New OleDbCommandBuilder(oda)<br />
 dim dat As DataTable= New DataTable("MyDatatable")<br />
 dim bmb As BindingManagerBase<br />
<br />
 odc.Open()<br />
 oda.Fill(dat)<br />
 odc.Close()<br />
<br />
 bmb = Me.BindingContext(dat)<br />
 datagrid1.DataSource = dat<br />