[أسامة]

اعتقد ان هذا الكود ثوف يسهل الامر عليك
هذا الكود لادخال البيناتالى فى اول تكست و الثانى مع الثالث و الرابع و الخامس الخخخخ مثلآ مثل هذه الطريقة لو تاريخ [الحمد الله الخميس 2013/8/1]
اضف

كود :

Imports System.Data.Odbc

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const ConnectionString As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\somepath\mydb.mdb;"
        Dim conn As OdbcConnection = New OdbcConnection(ConnectionString)
        Dim cmd As OdbcCommand = New OdbcCommand("INSERT INTO accdb (GName, LName, Age) VALUES (?, ?, ?)", conn)
        cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@GName", OdbcType.VarChar, 255).Value = TextBox3.Text
        cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@LName", OdbcType.DateTime).Value = TextBox4.Text
        cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@Age", OdbcType.VarChar, 255).Value = TextBox5.Text
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As OdbcException
            Throw ex
        Finally
            conn.Close()
        End Try
    End Sub

يمكنك ايضن اذا ضفت vbNewLine ثوف يكون مثل هذا [2013/8/1]
[الخميس]
[الحمد الله]
هذا هو الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const ConnectionString As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\somepath\mydb.mdb;"
        Dim conn As OdbcConnection = New OdbcConnection(ConnectionString)
        Dim cmd As OdbcCommand = New OdbcCommand("INSERT INTO accdb (GName, LName, Age) VALUES (?, ?, ?)", conn)
        cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@GName", OdbcType.VarChar, 255).Value = TextBox3.Text
        cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@LName", OdbcType.DateTime).Value = TextBox4.Text
        cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@Age", OdbcType.VarChar, 255).Value = TextBox5.Text
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As OdbcException
            Throw ex
        Finally
            conn.Close()
        End Try
    End Sub