[عبدالرحمن بشري عمر]

 If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        Try

            Dim str As String = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"

            cmd = New OleDb.OleDbCommand(str, con)

            cmd.Parameters.Clear()

            'cmd.Parameters.AddWithValue("@cvb", Me.Labeld.Text)

            cmd.Parameters.AddWithValue("@b", Me.Labelt.Text)

            cmd.Parameters.AddWithValue("@c", Me.Label17.Text)

            cmd.Parameters.AddWithValue("@d", Me.TextBox3.Text)

            cmd.Parameters.AddWithValue("@f", Me.Label13.Text)

            cmd.Parameters.AddWithValue("@h", Me.Label10.Text)

            cmd.Parameters.AddWithValue("@i", Me.Label14.Text)

            ' 

            cmd.ExecuteNonQuery()

            con.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

هذا الدالة عبارة عن تفاصيل الفاتورة وهي تعمل        insrtdetsal()