[VB.NET] اريد التعديل على كود اضافة عنصر للداتا جريد مربوطة بقاعدة بيانات

PHP كود :
Private Sub SaveRecord()
        Try
            con.Open()
            sqlstr = "Select * From tblInventory Where ItmID=@ItmID"
            cmd = New OleDbCommand(sqlstr, con)
            cmd.Parameters.Add("@ItmID", OleDbType.Integer).Value = IIf(txtID.Text.Trim.Length = 0, System.DBNull.Value, txtID.Text)

            If cmd.ExecuteScalar > 0 Then
                sqlstr = "Update tblInventory Set ItmName=@ItmName,ItmPrice=@ItmPrice,ItmIN=@ItmIN,ItmTotal=@ItmTotal,ItmOut=@ItmOut, " & _
                         "ItmRemain=@ItmRemain Where ItmID=@ItmID"
                cmd = New OleDbCommand(sqlstr, con)
                Dim Total As Integer = Val(txtOut.Text) + Val(txtToOut.Text)
                With cmd.Parameters
                    .Add("@ItmName", OleDbType.VarWChar).Value = IIf(txtItem.Text.Trim.Length = 0, System.DBNull.Value, txtItem.Text)
                    .Add("@ItmPrice", OleDbType.Integer).Value = IIf(txtPrice.Text.Trim.Length = 0, System.DBNull.Value, txtPrice.Text)
                    .Add("@ItmIN", OleDbType.Integer).Value = IIf(txtIN.Text.Trim.Length = 0, System.DBNull.Value, txtIN.Text)
                    .Add("@ItmTotal", OleDbType.Integer).Value = IIf(txtTotal.Text.Trim.Length = 0, System.DBNull.Value, txtTotal.Text)
                    .Add("@ItmOut", OleDbType.Integer).Value = IIf(Len(Total) = 0, System.DBNull.Value, Total)
                    .Add("@ItmRemain", OleDbType.Integer).Value = IIf(txtRemain.Text.Trim.Length = 0, System.DBNull.Value, txtRemain.Text)
                    .Add("@ItmID", OleDbType.Integer).Value = IIf(txtID.Text.Trim.Length = 0, System.DBNull.Value, txtID.Text)
                End With
                cmd.ExecuteNonQuery()
                MsgBox("تمت عملية التحديث بنجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "إنتباه")
            Else
                sqlstr = "INSERT INTO tblInventory(ItmName,ItmPrice,ItmIN,ItmTotal,ItmOut,ItmRemain) " & _
                    "Values(@ItmName,@ItmPrice,@ItmIN,@ItmTotal,@ItmOut,@ItmRemain)"

                cmd = New OleDbCommand(sqlstr, con)

                With cmd.Parameters
                    .Add("@ItmName", OleDbType.VarWChar).Value = IIf(txtItem.Text.Trim.Length = 0, System.DBNull.Value, txtItem.Text)
                    .Add("@ItmPrice", OleDbType.Integer).Value = IIf(txtPrice.Text.Trim.Length = 0, System.DBNull.Value, txtPrice.Text)
                    .Add("@ItmIN", OleDbType.Integer).Value = IIf(txtIN.Text.Trim.Length = 0, System.DBNull.Value, txtIN.Text)
                    .Add("@ItmTotal", OleDbType.Integer).Value = IIf(txtTotal.Text.Trim.Length = 0, System.DBNull.Value, txtTotal.Text)
                    .Add("@ItmOut", OleDbType.Integer).Value = IIf(txtToOut.Text.Trim.Length = 0, System.DBNull.Value, txtToOut.Text)
                    .Add("@ItmRemain", OleDbType.Integer).Value = IIf(txtRemain.Text.Trim.Length = 0, System.DBNull.Value, txtRemain.Text)

                    cmd.ExecuteNonQuery()
                    MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "إنتباه")

                End With
            End If

            con.Close()
            LoaddgvInventory()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try
    End Sub