How create insert in ADO.Net

جرب الكود التالي ولكن قم بالتعديل عليه

 Private Sub Buttoninsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            Dim cmd_Add As New OleDbCommand
            cmd_Add.Connection = con
            cmd_Add.CommandType = CommandType.Text
            cmd_Add.CommandText = " Insert into [truk] (ID , Truck , Dest , Time) " & _
                                  " VALUES (@ID ,@Truck ,@Dest ,@Time) "
            Dim p1 As New OleDbParameter("@id", OleDbType.Integer, 5)
            Dim p2 As New OleDbParameter("@truck", OleDbType.Integer, 10)
            Dim p3 As New OleDbParameter("@dest", OleDbType.Double, 10)
            Dim p4 As New OleDbParameter("@time", OleDbType.datetime)
            cmd_Add.Parameters.Add(p1)
            cmd_Add.Parameters.Add(p2)
            cmd_Add.Parameters.Add(p3)
            cmd_Add.Parameters.Add(p4)
           
            cmd_Add.Parameters("@id").Value = CInt(TextBox2.Text)
            cmd_Add.Parameters("@truck").Value = CInt(TextBox3.Text)
            cmd_Add.Parameters("@dest").Value = CDbl(TextBox4.Text)
            cmd_Add.Parameters("@time").Value = TextBox1.Text

            con.Open()
            cmd_Add.ExecuteNonQuery()
            MessageBox.Show("!!لقد تم إضافة", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
           MessageBox.Show(ex.Message, ex.Source)
         
            Exit Sub
        Finally
            con.Close()
           
        End Try
    End Sub

ماشاء على الجواب مليااااااااااااااااان

ولعرض الsql باختصار

insert into basha (ID , Truck , Dest , Time) values ('"& textbox1.text &"', '"& textbox2.text &"','"& textbox3.text &"','"& textbox4.text &"')

مشكورين كتير ويعطيكم ألف عافية

ياخRomantic_touch

الطريقة المختصره صحيحة ولكن استخدام الباراميتر افضل