[حيدر الشرهاني]

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

كود :

 Public Sub Insert_Imp_Move(ByVal Move_Date As Date, ByVal Imp_ID As Int32, ByVal Move_Type As String, ByVal Move_Total As Double, ByVal Paid As Double, ByVal UnPaid As Double, ByVal SalesMan As String)
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into Imp_Move ( Move_Date,Imp_ID,Move_Type,Move_Total,Paid,UnPaid,SalesMan)values(@Move_Date,@Imp_ID,@Move_Type,@Move_Total,@Paid,@UnPaid,@SalesMan)"
           .Parameters.Clear()

           .Parameters.AddWithValue("@Move_Date", SqlDbType.Date).Value = Move_Date
           .Parameters.AddWithValue("@Imp_ID", SqlDbType.Int).Value = Imp_ID
           .Parameters.AddWithValue("@Move_Type", SqlDbType.VarChar).Value = Move_Type
           .Parameters.AddWithValue("@Move_Total", SqlDbType.Decimal).Value = Move_Total
           .Parameters.AddWithValue("@Paid", SqlDbType.Decimal).Value = Paid
           .Parameters.AddWithValue("@UnPaid", SqlDbType.Decimal).Value = UnPaid
           .Parameters.AddWithValue("@SalesMan", SqlDbType.VarChar).Value = SalesMan
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       Cmd = Nothing
   End Sub